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KALEIDOSCOPE LIGHT SHOW 



Software Discounters 
of America 



S.D. of A. 



USA Canada Orders— 1-800-225-7638 
PA Orders— 1-800-223-7784 
Customer Service 412-361-5291 



• Free shipping on orders N->^ 
over $100 in continental USA 

• No Surcharge for VISA/MasterCard 

• Your Card is not charged until we ship 



ACCESS 

Leader Board Golf & 

Tourn. Disk (D) $9.88 

Leader Board Golf & Tourn. 

Disk #1 ST $16 

Tenth Frame ST $25 

Triple Pack: BH1, BH2, Raid 

Over Moscow (D) $14 

ACCOLADE 

Bubble Ghost ST $23 

Fight Night (D) $14 

Hardball (D) $14 

Mini Putt ST $23 

Test Drive ST $25 

ACTIVISION 
Cross Country 

Road Race (D) $9.88 

Ghostbusters (D) $9.88 

Music Studio (D) $23 

AMERICAN EDUCATION 

Biology (D) $12 

Grammar (D) $12 

Science (D) Call 

U.S. Geography (D) $12 

U.S. History (D) $12 

Vocabulary (D) $12 

World History (D) $12 

ANTIC 

A-Calc Prime ST $25 

A-Chart ST $19 

Base Two ST $39 

Cyber Paint 2.0 ST $49 

Flash ST $19 

Phasar 3.0 ST $59 

Spectrum 512 ST $44 

3D Breakthru ST $25 

ARTWORX 

Bridge 5.0 (D) $19 

Bridge 5.0 ST $23 

Cycle Knight (D) $14 

Linkword French (D) $16 

Linkword French 

1 or 2 ST $19 Ea. 

Linkword German (D) . . . .$16 

Linkword Russian ST $19 

Linkword Spanish (D) ... .$16 

Linkword Spanish ST $19 

Strip Poker (D) $21 

Strip Poker 2 ST $25 

Female Data Disk 1(D) . . .$14 

Male Data Disk 2(D) $14 

Female Data Disk 3(D) . . .$14 



Female Data Disk#4 ST . . . $14 
Female Data Disk#5 ST. . .$14 
AUDIO LIGHT 



Music Studio '88 ST $39 

BATTERIES INCLUDED 

Degas Elite ST $39 

BRODERBUND 

Karateka (D) $9.88 

Loderunner (D) $9.88 

Print Shop (D) $26 

Print Shop Graphics 

Library#1, #2, #3 (D) $16. Ea. 
P.S. Companion 64K (D) . .$23 

Sky Chase ST $25 

Super Bike Challenge ST . .$14 
CENTRAL POINT 

Copy 2 ST $23 

CINEMAWARE 

Defender of the Crown ST $33 

S.D.I. ST $33 

Sinbad: Throne of 

the Falcon ST $33 

DATA EAST 

Ikari Warriors ST $25 

Karnov ST Call 

Lock On ST $25 

Platoon ST $25 

Speed Buggy ST $25 



DATASOFT 
Alternate Reality: 

The City (D) $19 

The City ST $26 

The Dungeon (D) $19 

Bismarck ST $26 

Firezone ST Call 

Global Commander ST . . .$26 
Hunt for Red October (D) Call 
Hunt for Red October ST . $32 

Tomahawk 64K (D) $21 

Video Title Shop 64K (D) .$21 
DAVIDSON 

Math Blaster (D) $32 

Spell It (D) $32 

Word Attack (D) $32 

ELECTRONIC ARTS 



Software Classic Series: 
Financial Cookbook (D) . $6.88 
Lords of Conquest (D) . . $9.88 

Movie Maker (D) $9.88 

Music Const. Set (D) ... $9.88 
Pinball Const. Set (D) . .$9.88 
Seven Cities of Gold (D) $9.88 
Super moulder Dash (D).$9.88 



ELECTRONIC ARTS 

Alien Fires ST $26 

Arcticfox ST $14 

Awesome Arcade Pack ST . $32 

Bard's Tale ST $32 

Chessmaster 2000 (D) $26 

Chessmaster 2000 ST $29 

Double Dragon ST Call 

Empire ST $32 

Financial Cookbook ST . $9.88 
Lords of Conquest ST .... $14 

Marble Madness ST $26 

Mavis Beacon Teaches 

Typing ST $32 

Music Const. Set ST $32 

Roadwars ST $21 

Rockford ST $21 

Scavengers ST Call 

Scrabble ST $26 

Scruples ST $26 

Star Fleet 1 ST $35 

Star Fleet 1 (D) $32 

Twilights Ransom ST $23 

Zany Golf ST Call 

EPYX 

Art & Film Director ST . . . $49 



Battleship ST $19 

California Games ST $33 

Champ. Wrestling ST $14 

Dive Bomber ST $33 

Dragonriders of Pern (D) $6.88 

Final Assault ST $33 

Impossible Mission 2 ST . .$33 

Metrocross ST $16 

Summer Games (D) $14 

Technocop ST Call 

Temple Apshai (D) $9.88 

Temple Apshai Trilogy ST . $14 

Winter Games ST $14 

World Games ST $14 

EQUAL PLUS 

Financial Plus ST $129 

FORESIGHT 

Draphix ST $119 

Draphix Data Plotter ST . . . $29 
FTL 

Dungeonmaster ST $25 

Oids ST $23 

Sundog ST $23 

GAMESTAR 

Champ. Football ST $25 



GRIBNIF 

Neo Desk ST $19 

HIGH-TECH EXPRESSIONS 

Astro-G rover (D) $6.88 

Award Ware (D) $9.88 

Big Bird's Spc. Delivery (D) $6B8 
Ernie's Magic Shapes (D) $6.88 

Print Power (D) $9.88 

Sesame St. Print Kit (D) .$9.88 

♦All Hi-Tech req. 64K! 

ICD 

PR Connection $59 

Rambo XL $29 

US Doubler: 

with Sparta DOS $49 

without Sparta DOS ... $29 

INTERSECT 

Interlink ST $25 

Revolver ST $33 

ISP 

Dyna Cadd ST $447 

Masterplan ST $59 

Vip Professional ST $95 

LDW 

Basic Compiler 2.0 ST . . .$59 



Club Backgammon ST $23 

Power Spreadsheet ST $95 

Vegas Craps ST $23 

Vegas Gambler ST $23 

MASTERTRON1C 

Action Biker (D) $4.88 

Chopper X ST $14 

Ninja (D) $4.88 

Ninja Mission ST $14 

The Last V8 (D) $4.88 

Vegas Poker & 

Jackpot(D) $4.88 

MEGAMAX 

Laser C ST $129 

MICHTRON 

Airball ST $25 

Airball Const. Set ST $16 

GFA Artist ST $49 

GFA Basic Book ST $25 

GFA Basic Int. 3.0 ST $65 

GFA Basic Compiler ST. . .$39 

GFA Companion ST $33 

Goldrunner 2 ST $25 

Int'l. Soccer ST $25 

Juggler ST ..$33 



Karate Kid 2 ST $25 

Leatherneck ST $25 

Master CAD ST $129 

Slaygon ST $25 

Stuff ST $25 

Tanglewood ST $25 

Tetra Quest ST $25 

Time Bandit ST $25 

Tune Up ST $33 

MICROLEAGUE 

Baseball (D) $25 

Baseball 2 ST $39 

Box Score Stats (D) $16 

General Manager (D) or ST . $19 
1987 Team Data (D) or ST $14 
MICROPROSE 

F15 Strike Eagle (D) $23 

F15 Strike Eagle ST $25 

Gunship ST $33 

Silent Service (D) $23 

Silent Service ST $25 

MINDSCAPE 

Alien Syndrome ST Call 

Balance of Power ST $33 

Blockbuster ST $25 



Bop & Wrestle 64K (D) . . . $19 

Captain Blood ST $33 

De |a Vu ST $33 

♦Deeper Dungeons (D) . . . $16 

Gauntlet ST $33 

Gauntlet 64K (D) $23 

Harrier Combat Sim. ST . .$33 
Indiana Jones & The 

Temple of Doom ST $33 

Infiltrator 64K (D) $19 

Into the Eagle's Nest ST . .$25 

Out Run ST Call 

Road Raider ST $33 

Road Runner ST $33 

720 ST Call 

Shadowgate ST $33 

Space Harrier ST $33 

Super Star Hockey ST ... . $33 

Uninvited ST $33 

♦Requires Gauntlet! 
OMNITREND 

Breach ST $25 

Breach Scenario Disk ST. .$16 
Paladin ST $25 



Quest Disk for Paladin ST . $16 



Universe 2 ST $33 

ORIGIN 

Autoduel (D) or ST $25 

Moebius ST $25 

Quest for Clues (Book) . . .$19 

Ultima 3 (D) or ST $25 

Ultima 4 (D) or ST $39 

PROGRESSIVE 

Superbase Professional ST$189 
PROSPERO 

First Word Plus ST Call 

QMI 

Desk Cart ST $69 

ST Talk Professional $19 

RAINBIRD 

Black Lamp ST $19 

Carrier Command ST . . . .$29 

Corruption ST $29 

Elite ST $23 

Guild of Thieves ST .$29 

Jinxter ST $25 

Starglider 2 ST $29 

The Pawn ST $19 

Universal Military 
Simulator ST $33 



Virus ST $19 

REEVE 

Diamond OS (D) $19 

SIERRA 

Black Cauldron ST $25 

King's Quest 

1, 2, or 3 ST $33 Ea. 

Leisure Suit Larry ST $25 

Mixed-Up Mother Goose ST$19 

Police Quest ST $33 

Space Quest 1 or 2 ST $33 Ea. 
SIMON & SCHUSTER 

Star Trek ST $25 

SOFTREK 

Turbo ST $33 

SPRINGBOARD 

Certificate Maker ST $25 

CM. Library#1 ST $19 

Newsroom 64K (D) $33 

SSJ 

Advanced Dungeons & 
Dragon: Heroes of the 

Lance ST $26 

Phantasie 1, 2 or 3 ST . . .$26 

Questran 2 ST $32 

Rings of Zilfin ST $26 

Roadwar Europa ST $29 

Roadwar 2000 ST $26 

Stellar Crusade ST $39 

War Game Const. Set (D) . $19 
War Game Const. Set ST .$23 

Warship ST $39 

Wizard's Crown (D) or ST $26 
SUBLOGIC 

Flight Sim. 2 ST $33 

F.S. Scenery Disks Call 

Jet ST $33 

THREE SIXTY 

Dark Castle ST $25 

Warlock ST $23 

THUNDER MOUNTAIN 
Summer Challenge ST . .$9.88 

Tau Ceti ST $9.88 

Top Gun ST $9.88 

Winter Challenge ST . . . $9.88 

Wizball ST $9.88 

TIMEWORKS 

Data Manager ST $49 

Desktop Publisher ST $87 

D.P. Clip Art: 
Education Graphics ST .$25 
People, Places & Things ST$25 
Symbols & Slogans ST . . $25 



Partner ST $33 

Swiftcalc ST $49 

Word Writer ST $49 

UNISON WORLD 

Art Gallery: Fantasy ST . . .$19 

Art Gallery 1 or 2 ST .$19 Ea. 

Print Master Plus ST $25 

P.M. Fonts & Borders ST . . $23 
VERSASOFT 

db Man V5.0 ST Call 

MARK WILLIAMS 

C Source Dedugger ST . . . $44 

Mark Williams C ST $119 



WORD PERFECT 

WP Word Processor ST . .$199 

ACCESSORIES 

Bonus 5% SS, DD . .$4.99 BX 
Bonus 5Va DS, DD . .$5.99 BX 



Compuserve Starter Kit . . . $19 

Disk Drive Cleaner $6.88 

Epyx 200 XJ Joystick $12 

Epyx 500 XJ Joystick $14 

Indus GT Drive Call 

Supra Hard Drives Call 

Supra Modems Call 

Wico Bat Handle $17 

Wico Ergostick $19 



VSIERRA 



Police Quest is Sierra's trek into the brutal world of vice, 
drugs and homicide. An adult perspective on the life of a 
police officer, Police Quest deals not only with "Dirty 
Harry" aspects of the profession, but also with its daily 
routines. 

Police Quest is the most authentic graphic adventure game 
available for personal computers. Players are required to 
follow police procedures during the course of the action, 
just as officers must follow them in the real world. A 
manual explaining police procedures for arrests and other 
situations is included with the package. Police Quest is a 
dramatic tale straight from today's headlines! 




For the Atari ST 
$33 



P.O. BOX 111327 — DEPT. AT — BLAWNOX, PA 15238 

♦Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal & Company 
checks, allow 3 weeks clearance. No C.O.D.'s! Shipping: Continental U.S.A.-Orders under $100 add $3; free shipping on orders over $100. AK, HI, FPO, APO-add $5 on all orders. Canada & Puerto 
Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 67o sales tax on the total amount of order including shipping charges. CUSTOMER SERVICE HOURS: Mon.-Fri. 
9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE— 412-361-5291 (DStatus of order or back order (2)if any merchandise purchased within 60 days from S.Dof A. is defective, 
please call for a return authorization number. We will not process a return without a return auth. #! Defective merchandise will be replaced with the same merchandise only. Other returns subject 
to a 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & return directly to the manufacturer. Customer service will 
not accept collect calls or calls on S.D.of A.'s 800# order lines! Prices & availability are subject to change! New titles are arriving daily! Please call for more information. ORDER LINE HOURS: Mon.-Thurs. 
9:00 AM-7:00 PM Fri. 9:00 AM-5:30 PM Sat. 10:00 AM-4:00 PM Eastern Time. 



American Techna- Vision 

For Orders Only - 1-800-551-9995 
CA. Orders / Information 415-352-3787 



"Providing 8 Bit support with one of the Worlds 
largest inventories of Atari replacement parts" 

• No surcharge for VISA/MasterCard 

• Your card is not charged until we ship 



800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ 2 Q 50 



FLAT SERVICE RATES 

1050 DISK DRIVE $75.00 

810 DISK DRIVE $69.50 

850 INTERFACE $39.50 

800 COMPUTER $49.50 

1200XL COMPUTER $49.50 

Flat rates include Parts & Labor, 60 day 
warranty. Include $7.00 shipping & insurance 



800 10K "B" O.S. Module 

Older 800 units need the revision "B" 
Operating system to run newer 
software. Type the following peek in 
BASIC to see which revision you 
have. PRINT PEEK(58383). 



If the result is 56 order now! 



$gso 



$ 



800/400 MODULES 

NEW PARTS COMPLETE WITH ICS 
err 800 Main Board 



9 800/400 CPU with GTIA 
•800 10K"B" O.S. Module 
r Apu • 400 Main Board 
CMUn • 400 Power Supply Board 

CX853 16K Ran Module $14.50 
800 Power Supply Board $14.50 

INTEGRATED CIRCUITS 

•CPU CO14806 

• POKEY C012294 

• PIA C014795 

r> ^rn' GTIA CO14805 
* f\ ' ANTIC C012296 

LJL -CPU CO10745 

1 -PIA CO10750 

FApu 'CPU C014377 

Wn • DELAY CO60472 

•2600TIA.. CO10444 

• PIA C012298 

• CPU 6507 

• PIA 6532 

•RAM 6810 

• CPU 6502B 



C061598 $20.00 
C061991 $15.00 
1050 Rom $13.50 
C061618 $20.00 



C021697 $15.00 
C025953 $9.50 
5713 .... $5.25 
C024947 $15.00 



1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments required $ M—irr, 

^4/ 



WORD PROCESSORS 

• BANK STREET WRITER 

• CUT & PASTE 

• LETTER WIZARD $ A -759 
Your choice of these I / 
three popular disk EACH 
based word processors 
For all 8 bit Atari. 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairs I Set 
contains one each of the ^ . ^ nc - 1 
following: CPU, GTIA, $ IK^I 
ANTIC, PIA AND POKEY. ' ^ 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
806, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISC. HARDWARE 

13 Pin Serial I/O Cable .... $5.95 
1050 Track 0 Sensor . . . $8.50 
2793 1050 Controller IC . . $19.50 
Paddle Controllers (Pair) . . $6.50 
400 3 Piece Board Set . . . $19.50 
Fastchip for 800/400 . . $15.50 
600XL 64K Upgrade Kit $29.95 
Rambo XL w/o Ram IC's $39.95 
Supra 2400 Baud Modem.. $157.95 

ACE Joystick $7.95 

850 or PR Modem Cable $14.50 
850 or PR Printer Cable $14.50 

Printer Interface $39.95 

I/O 13 Pin PC mount .. . $4.50 

I/O 13 Pin Plug Kit $4.50 

ST 6' Drive Cable $14.00 

810 Door Latch Assy. . . $15.00 

1027 Transformer CALL 

U.S. Doubler $29.95 

ST Monitor Connector . . . $5.50 
ST Drive connector plug. . . $6.50 
k ST to 5/ 14 " Drive Cable $23.95 



POWER PACKS 

Exact replacement trans- & . . , 

former for 800/400J050 J> T A OU 
810. 1200XL. 850, XF551 & |«T 

1020 units. Part 3CQ17945. ' 

XL/XE SUPPLY 

Pcmot Pak for 800XL.600XL $ O IT00 1 

130XE. 65XE & XE Game. * ^ Q uu I 



KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800X1 $29.50 

400 $12.50 



SERIAL I/O CABLE 

High quality 13 pin data cable used 
to connect 8 bit Atari's to periphials 
including 1050, 810, XF551, 850, 
1027, 1010, 1020, 820, 822, 1030 
and many more. 

$C95 



COMPUTER BOOKS 

Hackerbook $5.00 

Inside Atari Basic $5.00 

Atari Basic Ref. manual. $5.00 

How to 6502 Program. . . $5.00 

Programmers ReT. Guide $14.95 

Basic- Faster & Better . . . $22.95 
Assembly Language Guide $19.95 

XE Users Handbook .... $17.95 

XL Users Handbook .... $17.95 

Advanced Programming $19.50 

Write Your Own Games. $5.00 

I Mapping the Atari $18.50 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in IC's . . . $39.50 

PR: CONNECTION 

Serial/ Parallel Interface for connecting 
modems and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 1200XL $15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. 
Specify dual 2764 or single 27128 
style. Gold contacts $6.95 



SOFTWARE 

Pac-Man Cartridge $4.00 

Deluxe Invaders Cart. . . $4.00 
Journey to the Planets . . $4.00 
Mission Asteroid Disk . . $4.00 

Crossfire Cartridge $5.00 

Dig Dug Disk $9.95 

Pole Position Disk . . . $9.95 

Q'Bert Cartridge $10.00 

Choplifter Cart $10.00 

Silicon Warrior Cart. . . . $12.50 
Learning with LeeperCart. $12.50 

Springer Cart $5.00 

Sports Spectacular Disk $7.50 

Donkey Kong Cart $5.00 

Eastern Front Cart $10.00 

Stratos Disk $7.50 

Murder on the Zinfendorf $10.00 
PILOT Language Cart. . .$17.50 
Cut & Paste W.P. Disk . $17.50 
Master Typing Tutor . . $15.00 

DropZone Disk $12.50 

Edt/Asm Cart, w/o man. .. $15.00 

Home filing manager $7.50 

Frogger Disk $5.00 

Fort Apcalypse Disk . . . $5.00 

Spider Man Disk $5.00 

The Hulk Adventure Disk $5.00 
Wizard & The Princess . . $5.00 
Ulysses & Golden Fleece $5.00 
Human Torch & The Thing $5.00 
Musical Pilot Ed. Disk. . . . $5.00 

Chambers/Zorp Dsk $5.00 

Pathfinder Disk $5.00 

Match Racer Disk $5.00 

Encounter/Questar Disk. $5.00 

Baja Buggies Disk $5.00 

Commutation Disk . . . $5.00 
Debug Childware Disk . . $5.00 

Crystal Raider Disk $5.00 

Dispatch Rider Disk $5.00 

Master Chess Dsk .... $5.00 

Molecule Man Disk $5.00 

Speed King Disk $5.00 

Last V-8 Disk $5.00 

Fractions Tutorial Disk. . $5.00 

Reading Skills Disk $5.00 

Clowns & Balloons Disk $7.50 
Fun in Learning Disk .... $7.50 
Fun in Numbers Disk . . $7.50 
Honey Craze Math (D) $7.50 
The Factory Dsk .... $20.00 

Gorf Cart. 800/400 $4.00 

Atlantis Cart. $4.00 
Wombats Adventure (D) $5.00 

ACTION O.S. S $59.95 

BASIC XEO.S.S $59.95 

MAC-65 O.S.S $59.95 

BASIC XL O.S.S. .. . $49.50 
SpartaDOS Const. Set $39.50 

Mercenary Disk $12.50 

The Goonies Disk $12.50 

Conan Disk $12.50 

Saracen Disk $9.95 

Crosscheck Disk .... $12.50 
Never Ending Story (D) $12.50 
Gunslinger Dsk. XL/XE $9.95 
Letter Wizard W.P. (D) $17.50 
Basic Compiler for 800 $29.95 
Telelink 1 Cartridge .... $10.00 

A 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $20.00. 
No personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders 
under $150.00. Add $2.25 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change without notice. Send SASE for free price list Atari is a reg. trademark of Atari Cap. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 




A COMPUTER SOFTWARE SERVICES 
RO. BOX 17660, ROCHESTER NY. 14617 
ATARI" PHONE (716) 467-9326 

JUST RELEASED! 

$99.95 "SUPER ARCHIVER II"! 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITERI; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICE! If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 "SUPER ARCHIVER'T $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATAR1 1050! It eliminates the need for Patches, PDB flies, Computer 
Hardware, etc. Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 

TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 
FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 
TOGGLE HEX/DEC DISPLAY 

• SECTOR orTRACK TRACING 
AUTOMATIC DIAGNOSTICS 
DISPLAYS HIDDEN PROTECTION 
ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 

up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



"BIT-WRITER"! 



$79.95 



$79.95 

The Super Archiver "BfTWRFTER"! is capable of duplcattng even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 

$69.95 "ULTRA SPEED PLUS" $69.95 

Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK in Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 



ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boot directly from RAMDISK 
Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 
Reverse use of OPTION key 
Cold-start without memory loss 
Built-in floppy/disk conllguralion 
editor (1-9) 



• Built In RAMDISK configura- 
tion editor (1-9) 

« RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built In MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

> Toggle internal BASIC 



• Ram resident disk loader 

Brogram (MACH 10 menu) 
OUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems In 
one (XL/XE, 4007800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XF551 Atari drive is a fine product with one major flaw. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF551 ENHANCER to the new XF551 drive and your problems are overl This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF551 ENHANCER is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info. 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shipping/Handling/Insurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 



A 

ATARI" 



$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY 1 ' 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



• Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 
One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



Insert and Delete 
Search Mode 
View only mode 
Memory Statistics 
Alternate Output 
Change screen Colors, 
borders, luminesce 
Mouse compatible 



$39.95 



THE "QUINTOPUSI" 



$39.95 



The "QUINTOPUSI" is an inexpensive device that provides a tremendous 
amount ot convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, eta). The "QUINTOPUSI" is an I/O port expander that 
converts a single I/O output/input into five additional outputs/inputs. Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the "QUINTOPUSI" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUSI" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTS!) 

This Deluxe version of the "QUINTOPUSI" has all of the above features with 
the additional benefits of two SWITCHABLE PORTSI This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 

or computers without the hassel or re-arranging I/O cables simply flip 

a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 

Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW.. .only 
their literature or packing may have slight cosmetic imperfections. All items 
are fully warrantied! Quantities are limited! No rainchecks! 

LIMITED 

NORMALLY SPECIALS 



1 PILL (without case) 


$ 70 


$19 


2. SUPER PILL (without case) 


80 


22 


3. XL FIX ROM 


70 


19 


4. ULTRA MENU/DOS 


30 


19 


5. DISKCRACKER (Newest version) 


50 


19 


6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. MIRACLE (Disk only Version of Impossible) 


70 


19 


9. IMPOSSIBLE for 800 or 800XL 


150 


69 


10. XL MATE 


30 


15 


11. COMPACTOR 


30 


15 


12. KLONE II (Generic HAPPY backup) 


100 


75 


13. SILENCER 


30 


19 


14. BLACK PATCH (MASTER) 


50 


25 


15. BLACK PATCH DATA DISKS 1 & 2 


20 


10 



'Order 5 items or more and we will pay the freight! 
These SPECIALS are for C.S.S. customers only • NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 
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When you want to talk Atari 



XL/XE HARDWARE 




CMO SPECIAL 

Atari 800XL $69" 

65XE 109.00 

130XE 149.00 

INTERFACES 

R Connection 59.99 

Printer Connection 34.99 

Supra 

1150 39.99 

1151 (1200 XL) 40.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 

Atari 80 Column Card 74.99 

ICD 

BBS Express (ST) 52.99 

Sparta DOS Construction Set 28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

Rambo XL 28.99 

U5 Doubler 28.99 

MODEMS 

Atari 

SX21 2 300/1200 (ST) 79.99 

XMM301 46.99 

Anchor 

VM520 300/1200 ST Dir. Con . . . .109.00 
Avatex 

1200 HC 89.99 

2400 169.00 

Supra 

2400 Baud XL/XE or ST 159.00 

2400 Baud (no software) 139.00 

MONITORS 

Magnavox 

CM 8505 14" Composite/RGB/TTL . . .189.00 



ST HARDWARE 



Call For Current Information 
On The Entire ST Line! 



□ 



ATARI SM1224 

RGB/Color Monitor *329 

520ST FM RGB/Color System . . . 829.00 
SM124 Monochrome Monitor 179.00 



A ATARI 



XF551 



SSSS/SSJ 




CMO PACKAGE EXCLUSIVE 
Atari 800XL & XF551 Drive 

w/5 Undocumented ROMS Asteroids, Defender, 
Missile Command, QIX, Star Raiders $259 



DRIVES 



Atari 

ST 314 DS/DD 219.00 

XF551 Drive (XL/XE) 179.00 

SHD204 20 Meg Hard Drive Call 

I.B. 

5V4" 40 Track (ST) 219.00 

5V4" 80 Track (ST) 279.00 

LCD. 

FA* ST 20 Meg 629.00 

FA* ST 30 Meg 849.00 

FA«ST Dual Hard Drives Call 

Indus 

GTS 100 3V 2 " DS/DD (ST) 189.00 

GT 1000 5V4" DS/DD (ST) 209.00 

GT Drive (XL/XE) 179.00 

Supra 

FD-10 10MB Removable Floppy .859.00 
30 Meg Hard Drive (ST) 649.00 

CALL FOR DISKETTE SPECIAL 



PRINTERS 





ATARI 

Atari 1020 Printer ^ . 

40 Col. Color $1999 

Atari 

1027 Letter Quality XL/XE 69.99 

XDM121 LQ (XL/XE) 189.00 

XM-M801 XL/XE Dot Matrix . . . .189.00 
Brother 

M-1109 100 cps Dot Matrix 169.00 

M-1509 180 cps Dot Matrix 359.00 

HR-20 22 cps Daisywheel 349.00 

Citizen 

120D 120 cps Dot Matrix 159.00 

180D 180 cps Dot Matrix 179.00 

Premier-35 35 cps Daisywheel . .549.00 
Epson 

LX-800 150 cps, 80 col 189.00 

FX-850 264 cps, 80 col Call 

LQ-500 180 cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

NEC 

P2200 pinwriter 24-wire 379.00 

Okidata 

Okimate 20 color printer 129.00 

ML-182 +120 cps, 80 column . .229.00 

ML-390 +270 cps, 24-Wire 539.00 

Panasonic 

KX-P1080i 144 cps, 80 col 169.00 

KX-P1091i 194 cps, 80 col 199.00 

Star Micronics 

NX-1000 140 cps, 80 column . . .179.00 
Toshiba 

P321-SL 216 cps, 24-wire 499.00 

Allsop Disk Holders 

Disk File 60-5V4" 9.99 

Disk File 30-3V 2 " 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 






Your Source for Hardware, Software & Peripherals 



SPECIALS XL/XE 



CLOSEOUTS XL/XE 



SPECIALS XL/XE 



#AAB822P 822 Printer Paper $2.49 

#AA14746 T.V. Switch Box 2.49 

#AA4010 Tic-Tac-Toe 4.99 

#AA4011 Star Raiders 3.99 

#AA4012 Missile Command 3.99 

#AA4013 Asteroids 4.99 

#AA4022 Pac Man 4.99 

#AA4025 Defender 4.99 

#AA4027 QIX 4.99 

#AA4102 Kingdom (Cass.) 1.99 

#AA4112 States & Capitals (Cass.). 1.99 

#AA4121 Energy Czar 1.99 

#AA4123 Scram (Cass.) 1.99 

#AA4126 Speed Reading 2.99 

#AA4129 Juggle's Rainbow 1.99 

#AA415 File Manager 8.99 

#AA4204 1020 Color Pens 1.99 

#AA5047 Timewise (D) 3.99 

#AA5049 Visicalc (D) 24.99 

#AA5050 Mickey Outdoors 5.99 

#AA5081 Music Painter (D) 9.99 

#AA6006 Counseling Procedure 1.99 

#AA7102 Arcade Champ (No J. Stk)6.99 

#AA8030 E.T. Phone Home 3.99 

#AA8048 Millipede 4.99 



ST SOFTWARE 



ROM CARTS (XL/XE) 
$2" ea or 5 for $13" 



Access 




Leaderboard Golf 


22.99 


Accolade 




Hardball 


21.99 


Activision 




Hacker ll/Music Studio (ea.) 


28.99 


Antic 




Flash 


21.99 


Avant Garde 




PC Ditto 


59.99 


Batteries Included 




Degas Elite 


. . .37.99 




Cygnus 
Starfleet I 



$3299 




Loose^Jndocumented 

Choose from:Bpace Invaders, Star 

tiders, ^Missile Command, (Ssteroids, 
c ManTSalaxian|£lefender, QIX, 
per Breakout, E.T., Eastern Front, 
botron. 
Rocklyn 

Gorf 2.99 

Anti-Sub (Disk) 2.99 

Journey to Planet 2.99 

Atari Program Exchange 

10 Different Cassettes For $11.99 



ST SOFTWARE 



Data East 

Speed Buggy 25.99 

Epyx 

Auto Duel 31.99 

Dive Bomber 29.99 

Firebird 

Jewels of Darkness 19.99 

The Sentry/Tracker (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO Pascal 59.99 

Michtron 

Leatherneck 29.99 

Microprose 

Gunship 28.99 

F-15 Strike/Silent Service (ea.) ... 24.99 
Miles Software 

ST Wars 24.99 

Mindscape 

High Roller 31.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 24.99 



Access 

Leaderboard Golf 13.99 

Accolade 

Fight Night 19.99 

Atari 

Atariwriter Plus 35.99 

Broderbund 

Printshop 26.99 

Datasoft 

Alternate Reality (City) 23.99 

221 Baker St 20.99 

Electronic Arts 

Pinball Construction 15.99 

Firebird 

Silicon Dreams 15.99 

Jewels of Darkness 15.99 

Microprose 

Top Gunner 14.99 

F-15 Eagle Strike 22.99 

Origin Systems 

Ultima 4 36.99 

Strategic Simulations 

Gemstone Warrior 11.99 

Sublogic 

Flight Simulator 34.99 



ST SOFTWARE 



Progressive Computer 

Graphic Artist 1.5 109.00 

Psygnosis 

Barbarian 25.99 

Soft Logik Corp. 

Publishing Partner 54.99 

Strategic Simulation 

Questron II 35.99 

Timeworks 

SwiftcalcA/Vordwriter (ea.) 43.99 

Desktop Publisher 79.99 

Unison World 

Printmaster Plus 25.99 




Word Perfect 



$159 



In U.S.A. 



MMC 



Call: 1-800-233-8950 

In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 
CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 



OVER 350,000 SATISFIED CUSTOMERS • ALL MAJOR CREDIT CARDS ACCEPTED • CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 



POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear. For faster delivery, use your credit card or send cashier's check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective software 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 
errors. 
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YOU ASKED US TO BRING BACK THE SAVINGS- 

The Newsroom 5 is now 
sale priced for your 8-bit Atari' 



The Newsroom includes everything 
you need to create great looking 
newsletters: Choose from over 600 
pieces of clip art • Modify clip art or 
create your own with powerful drawing 
tools • Use the built-in word processor 
to write in any of five fonts • Change 
your page easily— text automatically 
wraps around pictures to simplify 
layout and editing • Add Clip Art 
Collection™ Volumes for truly 
professional results! 

Over 350,000 families, schools and 
businesses are using The Newsroom 
to tell their story. Now ifs your turn. 





Mix text and graphics in two-column 
layouts with dramatic full-width banners! 

Product(s) 



SAVE up to $70 (over 50%!) 
on The Newsroom and Clip 
Art Collection ™ Volumes. 

• Clip Art Collection Volume 1: 

Over 600 pieces of all occasion art. 

• Clip Art Collection Volume 2: 
Over 800 pieces of business art. 

• Clip Art Collection Volume 3: 

Over 600 pieces of sports and 
recreation art. 



Suggested Retail Special Offer You Save 



The Newsroom ^549.95/ $39.95 $10.00 

The Newsroom + any 1 Clip Art Vol. V9^0 $49.90 30.00 

The Newsroom + any 2 Clip Art Vols. 1&85 $59.85 50.00 

The Newsroom + all 3 Clip Art Vols. /439\p $69.80 70.00 

Each Clip Art Collection Volume has a suggested retail value of $29.95. The Newsroom and Clip Art Collections are available for 
these Atari 8-bit computers: 800XL,' M 130XE,™ 65XE.™ Atari 1050™ or compatible disk drive required. 

To order by phone, call toll-free: 

1-800-4454780, ext. 3021 

Phone orders accepted 8:30 a.m-4:00 p.m. Monday-Friday Central time (VISA/Mastercard only). 
Ask for "The Newsroom Atari Offer." 30-day money-back guarantee! 
This is an exclusive offer directly from Springboard. This offer ends February 28, 1989. 



TO ORDER BY MAIL 

Complete the order form and mail it with payment to: 
Springboard Software 
7808 Creekridge Circle 
Mpls.. MN 55435 

FORM NO. 3021 Offer expires February 28. 1989 



Address (No P.O. Box)_ 
City 



_Zip_ 



Check the Atari 8-Bit 
offer you want 


Check the volume(s) you want 


You pay 
only 


Write in 
your price 


Clip Art Vol. 1 
C1011 


Clip Art Vol. 2 
C1012 


Clip Art Vol. 3 
C1013 


□ The Newsroom only N1010 








$39.95 




□ The Newsroom + 1 Clip Art 








$49.90 




□ The Newsroom + 2 Clip Arts 








$59.85 




□ The Newsroom + 3 Clip Arts 








$69.80 





Please check one: 

□ Check/Money Order (Payable to Springboard) □ VISA □ MasterCard □ School PO. Attached 



SUBTOTAL 
N residents add 6% sales tax 
Shipping fee per order 
Grand total in U.S. Dollars 



Signature (required) 

'U.S. & Canada add S5.00 for shipping & handling-all others add S15.00 

IMPORTANT INFORMATION: Copy this form far additional orders. Springboard accepts orders by phone or mail in U.S. dollars only. Orders from outside the U.S. accepted with VISA. 
MasterCard or international money-orders only. Sorry, no cash. C.O.D. or P.O. boxes accepted. Please allow 2-3 weeks lor delivery, slightly longer for orders outside U.S. 
Call 1-800-445-4780 or (612) 944-3915 with questions. 

Springboard. The Newsroom and Clip Art Collection are trademarks or registered trademarks of Springboard Software. Inc. Atari 800XL. 1050. 65XE and 130XE are trademarks or 
registered trademarks of Atari Corporation. The Newsroom Atari does not include The Wire Service feature. 
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EDITORIAL 



I/O BOARD 



YOUR 100% 8-BIT MAGAZINE 

Antic isn't just talking about keeping the Atari 8-bit 
market alive, we're doing something new about it virtually 
every month. 

Last month's Antic announced that our 8-bit Arcade 
Catalog was back, bigger than ever and even featuring 
reissues of top commercial software which had gone out 
of print. In this issue we proudly announce the arrival of 
the 8,500-page Antic Index on CompuServe's ANTIC 
ONLINE. The fast, friendly Antic Index database will enable you to find out 
which 1982-88 issue contained just about any Antic article, program, or review. 

For years, Antic readers have been asking for a complete index to this 
magazine's back issues. Now that long-awaited reference tool is here. And it's 
even more than readers would have expected, because it draws on the full power 
of CompuServe's mainframe computers. The Antic Index is the result of months 
of work by Charles Jackson, our Technical and Online Editor, whose article 
this month explains how easily you can find exactly what you're looking for 
in the Antic back issues. 

Not only does the Antic Index provide fast references to the correct back 
issue — many of the complete stories are available online for downloading. 

Antic still believes in the future of the Atari 8-bit market and we're proving 
it by our actions — even at a time when so many others have fallen by the 
wayside. Starting with this issue, Antic has returned to being an all Atari 8-bit 
magazine and disk for the first time since May 1985. 

In response to overwhelming reader demand, all ST coverage is being 
switched out of Antic into our ST-only sister publication START. (ST-owning 
Antic subscribers can transfer their subscriptions to START.) Undoubtedly you 
have noticed that the Antic Magazine you now hold is thinner than the previ- 
ous four issues, and is staple-bound like the three issues from last summer. But 
this should cause only slight change for 8-bit owners, because the pages that 
were cut are the ST Resource section. 

Why did we start reducing the number of pages in Antic this month? Antic 
Publishing is an independent business and this magazine must make a fair profit 
in order to keep going — we certainly don't get any subsidy money from Atari. 
Antic Magazine can still remain profitable at this smaller size, covering 8-bit 
Atari computers exclusively, with present amounts of readers and advertisers. 

The catch is that the number of 8-bit advertisers has been dropping all along, 
so Antic must look for a higher level of reader support. In order for Antic 
to keep on finding new ways to do the job for your 8-bit Atari, you need to 
subscribe for 12 issues of Antic Magazine plus disk for only $59-95. (Or upgrade 
your magazine-only subscription to include the disk.) 

Packed with 172K of high-quality Atari programs and graphics, each double- 
sided Antic Disk is an unequaled 8-bit software value. This month's disk features 
every type-in program from the issue — plus Mandala Movies, a hypnotically 
colorful kaleidoscope construction set, and a series of highly detailed pictures 
created with this issue's Hard-Wired Ray Tracing program. 




Nat Friedland 
Editor, Antic 




ADDING SOME ZIP 



I'd like to speed up my Atari 130XE. I no- 
tice that Apple II owners can upgrade their 
6502 CPUs to 65C02, or a new product 
called the Zip Chip. I've heard that the 
65802 is also pin-compatible. Can any of 
these microprocessors be used in my 
130XE, and is it just a matter of swapping 
one chip? Will I see any performance im- 
provement in such things as integer or 
floating-point calculations, memory read/ 
writes or disk I/O? What kinds of prob- 
lems might arise other than games running 
too fast? 

James Johnson 
Cambridge, MN 

We asked Contributing Editor Matt Rat- 
cliff about this and got the following re- 
ply: "GEnie has an extremely long thread 
on the subject of faster 6502s — even 
though it's been established that this is vir- 
tually impossible to do on an 8-bit Atari. 
And even if you got all the Atari's chips 
and operating system to handle a differ- 
ent microprocessor, what good is it? Only 
the software that you write yourself will 
work with if."— ANTIC ED 



NX-1000 



After reading the review of Star Micronics' 
NX-1000 printer (Antic, May 1988), I had 
reservations about such an inexpensive 
printer living up to its advertisements, but 
I bought one anyway. 

I can only say that this printer has to 
be one of the best bargains around. I've 
teamed it up with a Supra 1150 interface 
and the combination works great. The 
graphics capabilities of this machine must 
be seen to be believed. 

I've used it with Print Shop, Newsroom, 
AwardWare and PaperClip with no prob- 
lem at all. It uses the same codes as the 
Epson LX80 — and does just as well, if not 
better. For the price, this has to be one of 
the best printers around for 8-bit users. 

Thorvald Ripley 
Redondo Beach, CA 
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I/O BOARD 



REAL REASON 



I recently purchased an Atari 65XE with 
an XF551 disk drive and have noticed that 
not a lot of new third-party software is 
available for it. So I started phoning soft- 
ware companies to see if they would start 
making Atari 8-bit software as they do for 
the Commodore 64. They all told me ba- 
sically the same thing — If they could get 
big orders, they would produce it. By "big 
orders" they meant national chains, such 
as Toys R Us and Child World/Children's 
Palace. Activision was the only company 
that said it was afraid of piracy. 

So I went to the aforementioned stores 
in my area and spoke to the store 
managers, some of whom phoned their 
district managers, who said they'd order 
Atari 8-bit software if they got decent 
responses to the requests for it. So I urge 
all Atari 8-bitters to go to local stores as 
I did. Maybe we can all still benefit from 
new software for the 8-bit. 

Robert Urbaniak 
Williamsville, NY 

Way to go! Antic agrees that this kind of 
grass-roots effort is vital to the continued 
flow of third-party products for the 8-bit. 
That's what the successful Antic write- 
in campaigns have been all about.— 
ANTIC ED 



NX-CEPTION 



I must take exception to your rather harsh 
review of the Star NX-1000 printer in the 
October 1988 Antic. I have used my NX- 
1000 Rainbow (the color version) for two 
months now and have nothing but praise 
for its quality and many special features. 

I do agree that the rear cover can be dif- 
ficult to remove, but I put a little silicon 
on the two tabs that hold it in place, and 
that has helped a lot. As for the front cover, 
how can you "expect" it to be one way 
or the other? Each of my previous three 
printers was unique in this respect. 

I find the loading of fanfold paper to 
be no more difficult than on my previous 
printers, and I have yet to experience the 



paper popping out of the sprockets. (Did 
you raise the clamp levers to lock the 
sprocket units?) What's more, there is 
much less need to bother with loading and 
unloading fanfold paper. With the paper 
parking feature, you can automatically 
draw the fanfold paper out of the way, in- 
sert and type on single-sheet letterhead or 
envelopes and then reposition your fan- 
fold paper, all without removing the rear 
cover or removing the paper from the 
sprockets. 

I never waste a sheet of paper between 
printouts. If you start printing at the very 
top of the form, you do have to stand by 
to make sure that the first sheet gets tucked 
behind the paper bail, but this isn't dif- 
ficult. 

The quality of the NLQ printing is so 
good that I really don't mind waiting a few 
extra seconds. I especially appreciate that 
it's available with any print pitch. Had I 
read your review before purchasing my 
new Star, I probably would not have cho- 
sen it. So I'm glad my Antic arrived after 
the fact. 

Carolyn Hoglin 
Orlando, FL 

Reviewer Gregg Pearlman replies: "I 
understand your point about the front 
cover, but I disagree. As it happens, the 
half-dozen or so printers I've reviewed for 
Antic all had front covers that went on 
and off the same way — except the NX- 
1000. So I guess shoidd have said that the 
cover 'goes on and off opposite from what 
I expected. ' On the other hand, the Antic 
employee currently using the NX-1000 has 
removed the cover altogether— evidently 
he doesn't want to deal with the hassle 
either. 

Antic's NX unit showed the problems 
described in my review while 1 was us- 
ing the printer As for wasting a sheet of 
paper, why should you have to make sure 
the next page is tucked behind the bail? 
On our previous Star printers (NL-10, NR- 
10, etc.) you don't have to. Essentially, 
what my review said was not that the NX- 
1000 was a bad printer, but that it wasn 't 
the right printer for a user like me — 
ANTIC ED 



PAPERCLIP QUERY 



Has anyone ever figured out a way to use 
PaperClip with a FingerPrint chip printer? 
I have an Epson RX-80 with a LetterWriter 
chip system in it and I have not been able 
to access the LetterWriter features from 
PaperClip. Electronic Arts was unable to 
help me, so I'm turning to you. 

Glen Bergstedt 
San Diego, CA 

Sorry, we never tested that hardware, so 
we'll have to pass your question to the 
readers. Anybody got ideas?— ANTIC ED 
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Antic welcomes your feedback, but 
ive regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 



8 



ANTIC. THE ATARI RESOURCE 



NEW PRODUCTS 



POWER DRESSING wmmmmm 

(t-shirts) 
Computer Lust 
P.O. Box 61734 
Honolulu, HI 96839 
(808) 988-5979 
$15 

Power Dressing is Computer Lust's 
new line of a dozen zany, witty and 
arty silkscreened T-shirts which target 
the computer industry and users. The 
humorous designs include such pun- 
filled titles as "Good to the last Byte," 




"BASIC Training," "Getting Loaded" 
and "RAM-bo". Write for a descriptive 
brochure. For your company or user 
group's promotional giveaways, Com- 
puter Lust will also personalize shirts 
with a company name or logo, or even 
create a customized design. 

AUTOPREP rnmBW 

(disk formatter) 
Helpways 
P.O. Box H 
Rochester, NY 14623 
(716) 334-3928 
$17.45, 16K disk 

AutoPrep automatically formats any 
number of blank disks in single or 
dual density and writes your choice of 
DOS and AUTORUN files to them. The 
entire effortless process is much sim- 
pler than doing it from Atari DOS. 
Price above includes $2.50 shipping. 



TURBOWORD, 

TURBOBASE 80 mmmmammm 

(word processor, database) 
MicroMiser Software, Inc. 
163 5-A Holden Avenue 
Orlando, FL 32809 
(305) 857-6014 
48K disk 

Turboword ($49) is a word processor 
for the Atari XEP80's 80-column 
screen. DOS 2.5 and SpartaDOS com- 
patible, its features include automatic 
formatting, mail merge, macros, spell- 
ing checker, auto RAMdisk load and 
formfeed for laser printers. 

Also utilizing the XEP80, Tbrbo- 
base 80 ($179) works like the original 
database, but with the 80 column 
screen making output formats more 
readable and easier to create. Turbo- 
base 80 interfaces with Turboword. 
Owners of Turbobase can upgrade for 
$39. 

DIAMOND ■HHMHHi 

(operating system) 
USA Media 
7810 Malcolm Road 
Clinton, MD 20735 
(301) 868-5494 
$29.95 each, 64K disk 

Developed by Reeve Software and now 
brought out by USA Media, Diamond 
OS brings a complete windowing 
graphics operating environment to 
your Atari XL/XE/GS— just like the ST, 
says USA Media. Use the ST mouse, 
Atari joystick, touch tablet, trackball, 
or cursor keys to activate a pointer. 
Diamond lets you use icons, windows, 
drop-down menus, dialog boxes and 
desk accessories. Diamond can even 
access up to 16 megabytes of memory, 
for those who've been wondering 
what to do with their upgraded 8-bits. 
The disk version already available re- 
quires 64K memory. An enhanced car- 
tridge version requiring only 48K is 
scheduled to be released in November 
1988. 

Diamond OS is the first release in 
the ST, Jr. line and will be required 



for using the other programs including 
Diamond Paint, a paint program 
complete with draw, block move, line, 
k-line, box, circle and airbrush features. 
Diamond Paint also accepts Degas pic- 
tures from the ST and MacPaint pic- 
tures. Diamond Write is a word 
processor that includes cut and paste, a 
complete spell checker, and an 80- 
column display. Diamond Publish is 
a desktop publishing system that cre- 
ates text wrap-around graphics, text 
flow from column to column, and 
works with multiple-page documents. 
Diamond Programmer's Kit in- 
cludes complete documentation for the 
Diamond environment and a resource 
editor that simplifies the creation of 
icons, drop-down menus, and dialog 
boxes. Programming samples in both 
BASIC and assembly language are also 
included in the kit. 

SFP ■■IHHHHHMHi 

(utility programs) 
SFP 

4 Forest Drive 
Palmyra, VA 22963-2118 
$21.95, 48K disk 

SFP is a set of utility programs for use 
with Broderbund's SynFile-H file 
management system. Using the SFP 
utility programs you can create, save 
and produce reports in either list or la- 
bel format; print or display the struc- 
ture of a SynFile+ file; modify look-up 
tables; alter values associated with rec- 
ord number and counter fields; change 
justification of any data item and re- 
cover deleted records. SFP comes with 
DOS 2.5 and Turbo-BASIC (64K ver- 
sion) and supports the same densities 
as SynFile+ when used with appro- 
priate DOS versions. 



New Products notices are compiled ty 
the Antic staff from information 
provided by the products' manufac- 
turers. Antic welcomes such submis- 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 
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BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 



SAVE 25% TO 35% 



How To Order: 



Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 

Example: 1A- is for "April 1983, magazine 
& disk" 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 



Prices: 

1 To 5 If you order more 
Issues than 5 Issues 

Magazine only $7.00 each $6.50 each 
Disk only $3.00 each $2.75 each 

Magazine & Disk $5.00 each $4.75 each 

Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 



Back Issue Order Form 



Order # 



Selection 
A, B, or C 



Order # 



Selection 
A, B, or C 



Total Issues Ordered: 

No. Issues of Sel. A: . 
No. Issues of Sel. B: 
No. Issues of Sel. C: 



Total Issues 
Ordered: 

1 to 5 6 & over: 



x $7 ea 
x $3 ea. 
x $5 ea 



x $6.50 ea. 
x $2.75 ea. 
x $4.75 ea. 



= $_ 
= $_ 



Total $ . 
Shipping & handling $ _ 
Amount enclosed $_ 



□ Check Enclosed □ VISA □ MasterCard 

Name 

Address 



City . 



State 



Zip . 



Credt Card # 
Exp. Date 



Canada, Mexico and all other foreign add $1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2 % sales tax. 

Aftfic 

The ATARI Resource 



Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 



ORDER * ISSUE 



1 


April 1983: Games— 3-D Maze, Voyeur 


2 


May 1983: Telecomputing— Microids, 




Tele Chess 


3 


June 1983: Databases— Stargazing, 




Dancin' Man 


4 


July 1983: Adventure Games— Dragonsmoke, 




Shoot-em-up Math 


5 


August 1983: Graphics— 3-D Fuji, Keystroke 




Artist 


6 


September 1983: Education— P/M Tutor 


7 


October 1983: Sports Games— AutoCassette 


8 


November 1983: Sound & Music— Air Raid, 




Casting Characters 


9 


December 1983: Buyer's Guide— 




AUTORUN.SYS, Automate Player/Missiles 


10 


January 1984: Printers — Pocket Calendars, 




Screen Dump 


11 


February 1984: Personal Finance— TYPO, 




Gauntlet 


12 


March 1984: International Issue— DiskRead, 




Poker Solitaire 


13 


April 1984: Games — Risky Rescue, 




Math Wizard 


14 


May/ June 1984: Exploring XL Computers— 




Escape from Epsilon, Scroll to the Top 


15 


July 1984: Communications— AMODEM, 




BASIC Animation Secrets 


16 


August 1984: Disk Drives — Horseplay, Recall 


17 
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Graphics Converter, Olympic Dash 


1ft 
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Ball, Antic 4/5 Editor/Animator 


1Q 
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Adventure Island, Advent X-5 
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Biffdrop 


21 


January 1985: Super Utilities— TYPO II, 




DISKIO 


22 


February 1985: Finances— Home Loan 




Analyzer, Drum/Bass Synth 


23 


March 1985: Printers — Kwik Dump, Font 




Maker 


24 


April 1985: Computer Frontiers — Dot Matrix 




Digitizer, Speech Editor 


25 


May 1985: New Super Ataris — Son of Inf obits, 




Arena Racer 


26 


June 1985: Computer Arts— View 3-D, 




The Musician 


27 


July 1985: Computer Challenges— Miniature 




Golf, Guess That Song 


28 


August 1985: Telecommunications— Atari 




'Toons, Pro* Term 


29 


September 1985: Power Programming— 




One-Pass Disk Copy 130, Crickets 



ORDER # ISSUE 

30 October 1985: Mind Tools— Graph 3D, GEM 

Color Cascade 

31 November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 
Management 

32 December 1985: Shoppers Guide— DISKIO 

Plus, Box-In 

33 January 1986: Atari Products are Back- 

Appointment Calendar, Dungeon Master's 
Apprentice 

34 February 1986: Printer Power— T-Shirt 

Construction Set, Forth Escapes 

35 March 1986: Practical Applications— Lunar 

Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics— Fractal 

Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary— Digital 

Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing— Weather 

Wizard, Bomb Squad 

39 July 1986: Computer Arts— Amazing Card 

Shuffler, Graf con ST 

40 August 1986: Online Communications— 

Ultrafont, Floppy Filer 

41 September 1986: Weather— WEFAX Decoder 

(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks— Video Stretch, 

TYPO ST 

43 November 1986: Personal Finance— Budget 

dataBASE, V- Graph 

44 December 1986: Shoppers Guide— Stepper 

Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari— Talking 

Typewriter, Rebound 

46 February 1987: Word Processing— SF 

Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 

Multi-AUTORUN 

48 April 1987: —Designer Labels, Taxman 

49 May 1987: 5th Anniversary— A-Rogue, Poker 

Slot Machine 

50 June 1987: Animation— Verbot Commander, 

Citadel 

5 1 July 1987: Print Any thing— Ghost Writer, 

Your Net Worth 

52 August 1987: Atari Muscle— Sideways 

Spreadsheet, Diamond Dave 

53 September 1987: Work/ Play— Mighty Mailer, 

Maximillian B. 

54 October 1987: Football Predictor— Antic 

Prompter (8-bit/ST), Spelling Checker 

55 November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 

56 December 1987: Print Holiday— P. S. Envelope 

Maker, Antic Publisher 



DISK BONUS 



MANDALA MOVIES 

Kaleidoscope Construction Set, By Mike McFarlane 



Mandala Movies, this 
month's Super Disk 
Bonus, is an addic- 
tively creative kaleido- 
scope construction set. Using sim- 
ple keyboard and joystick com- 
mands, you can effortlessly create an 
infinite number of fascinating de- 
signs that flow hypnotically in ever- 
varying patterns. 

The fascinated Antic editorial 
staff had a great time testing the pos- 
sibilities of Mandala Movies setting 
kaliedoscope patterns flowing 
across the monitors at unoccupied 
workstations for hours at a time. 
One Antic art department staffer 
was enthusiastic about using the 
vivid colors and striking patterns of 
Mandala Movies to design quilts or 
embroidery patterns. You can't save 
or print designs, but you can freeze 
the screen image and photograph it. 

Mandala Movies is programmed 
entirely in speedy (but hard-to-type) 
machine language. Author Mike 
McFarlane did an excellent job with 




this highly artistic program. But, for 
reasons that would take too long to 
explain here, unfortunately Antic 
does not have McFarlane's current 
address. We believe he lives in the 
Eugene, Oregon area and we'd love 
to hear from him, or from anyone 
who knows where to find him, so 
we can send Mike's author fee. 

USING THE PROGRAM 

Use DOS command O to copy the 
MANDALA.EXE file to another disk 
that includes the DOS.SYS file. Don't 
attempt to run Mandala Movies 
directly from the monthly Antic 
Disk. Use DOS command E to re- 
name MANDALA.EXE to AUTO- 
RUN.SYS. Turn off your computer 
and remove all cartridges. Place the 
disk in drive 1. If you're using an XL 
or XE, hold down the [OPTION] key 
while you turn on your computer. 
Mandala Movies will load and run 
automatically. 

After a short demonstration run, 
you can start experimenting with 
Mandala Movies. Follow the on- 
screen prompts for instructions. 
With just a few keystrokes and a 
nudge of the joystick you can pro- 
duce striking kaleidoscope patterns 
that will amaze your friends. 

Mandala Movies operates in GTIA 
mode 10, letting you work with 
eight colors in your design, plus one 
color for the background. In Color 
Selection mode you can adjust the 
colors to your liking, and even watch 




your current pattern change while 
you experiment with new colors. 
After you have an image you like, 
you can start it scrolling across the 
screen in several patterns for an en- 
tertaining visual display. 

Your February 1989 Antic Disk — 
featuring Mandala Movies as well as 
every type-in program from this 
issue — will be shipped to you within 
24 hours after receiving your order. 
Just phone Toll-Free to the Antic 
Disk Desk at (800) 234-7001. The 
monthly disk is only $5-95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $5 95 
check (plus $2 shipping and han- 
dling) to Antic Disk Desk, 544 Sec- 
ond Street, San Francisco, CA 94107. 

Programmers: Antic wants to see 
your most ambitious programs, even 
those too large or complex for print- 
ing as a type-in listing. High-quality 
programs in any language that has 
a runtime version are now eligible 
for consideration as a Super Disk 
Bonus. A 
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ANTIC, THE ATARI RESOURCE 



ONLINE 



Ultimate Atari reference tool goes online. 

Antic Index 



By Charles Jackson, Antic Technical and Online Editor 



Introducing the Antic Index, 
newest addition to ANTIC 
ONLINE and Compu 
Serve. The Antic Index 
is the most comprehensive 
guide to back issues of 
Antic and START. If the 
Antic Index was 
published as a book, 
it would contain 
more than 8,500 
pages of product re 
views, new prod- 
uct announce- 
ments, I/O letters, 
programming tutor- 
ials, feature articles 
and news bulletins. 

Need Atari in- 
formation fast? It's all 
just seconds away. Find it 
in the Antic Index, the larg 
est, fastest electronic guide to 
information about your Atari. And 
best of all, there's no extra fee. 
You pay only standard CompuServe 
connect charges. There's never any 
extra fees or surcharges for using the 
Antic Index. Just type GO ANTIC and 
select menu choice 10, The Antic 
Index. 

The Antic Index is primarily an 
electronically searchable database 
covering every article ever published 
in Antic, from the 1982 first issue till 
the beginning of 1989 — plus most 
articles from START. But the Index is 
also a library as well as a database. So 




far, you 
can actually 
download some 
WF 20% of the com- 
plete Antic articles, 
^Sj£fc» perhaps half of the com- 
plete START text, and 
many original major features from 
ANTIC ONLINE such as Tim Oren's 
Professional GEM columns and Chris 
Crawford's Assembly Language tu- 
torials. 

The Antic Index, currently at the 
seven megabyte mark, is an ongoing 
project of ANTIC ONLINE. Every 
week we'll be adding more and more 
information from old and new issues 
of START and Antic. The Antic Index 
is an all-text reference service, so it 



cannot contain any pho- 
tographs, diagrams, adver- 
tisements or program list- 
ings. If you need to see a 
diagram or use a program, 
you can order $3 back 
magazines or #5 back 
disks from the Antic Disk 
Desk. Just phone (800) 
234-7001 with your Visa 
or Mastercard order, or see 
the ad in this magazine for 
details on a magazine/disk 
back issue special offer. 

If you ever needed a 
clear programming tu- 
torial, a helpful product 
review, or just a fun game 
from Antic or START back issues, 
there used to be only one way to find 
it. Slide out your box of old maga- 
zines, start with the most likely- 
looking issue, search through each 
page. If you never missed or lost an 
issue and if you know exactly what 
you're looking for, you'll probably 
find the information you need. You'll 
also be quite a bit older than when 
you started. 

Now there's an easier way. In a few 
seconds, the Antic Index can find 
your article, right down to the page 
number. In many cases, the index also 
contains the complete text of the ar- 
ticle. Just "capture" the information 
you need. There's nothing simpler or 
faster. Let the Antic Index be your first 
stop when you need Atari information 
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fast. It'll probably be the only stop 
you need. 

ELEVEN WAYS TO SEARCH 

If you ever used a card catalog to 
find a library book, you'll have very 
little trouble using the Antic Index. A 
typical card catalog offers two ways 
to find a book — by author and by sub- 
ject. The Antic Index gives you eleven 
ways to find an article. You can search 
by: 

1 Author's Name 

2 Month of Publication 

3 Year of Publication 

4 Subject 

5 *See a List of 
Subjects/Search* 

6 Department 

7 *See a List of 
Departments/Search * 

8 Programming Language 

9 Program Name 

10 Article Title 

1 1 Magazine Title 

Use the Author's Name option to 



find all articles written by a particu- 
lar author. For example, if you wanted 
to know when Russ Wetmore wrote 
those articles about the 1030 modem, 
you would search by Author's Name 
for WETMORE. The index software 
searches through its database and 
compiles a list of every article writ- 
ten by WETMORE. This list is called 
a selection set. Once a selection set is 
created, it's put into a menu and dis- 
played onscreen. Now, just type in the 
number of the article you want to see. 

The Month and Year of Publica- 
tion options let you restrict your 
searches to a specified date. 



Use the Subject option to find all 
articles written by about a particular 
subject, such as Printers, Desktop 
Publishing and Business. If you need 
more help, use the *See a List of 
Subjects/Search * option to display 
a list of more than three dozen com- 
monly used subject headings. 

Use the Department option to 
find all articles written for a particu- 
lar subject, such as New Products, ST 
Section, and Features. Again, if you 
need more help, use the * See a List 
of Departments/Search* option to 
display a list of commonly used 
department headings. 

The Program Name and Pro- 
gramming Language options only 
search through articles which contain 
program listings. For example, you 
could search by Program Name to 
learn when Antic ran the 
STRETCH. ACT program. Use the 
Programming Language option 
when you know what language the 
program was written in. This option, 
for example, could find every AC- 



TION! program Antic has printed. 
Just remember that the Antic Index is 
an all-text service and cannot contain 
program listings, only the accom- 
panying articles. 

The Article Title option finds an 
article by its title. If you entered "on- 
line," the Index would find every ar- 
ticle which has the word "online" 
anywhere in its title. 

SEARCH STRATEGIES 

The Magazine Title option lets 
you restrict your searches to Antic 
Magazine, START Magazine, or ANTIC 
ONLINE. 



Even if you don't remember the ex- 
act title of the article, or even how to 
spell the author's name, the Antic 
Index can still help. For example, if 
you needed Lawrence Dziegielewski's 
"Disk Drive Survey," but couldn't 
remember how to spell Dziegielewski, 
you could search by Author's Name 
for any part of the name you could 
spell. Searches for "Dz" or "ski" 
would find the article almost as 
quickly as a search for Dziegielewski. 

Of course, you could have found 
the same article by searching by Sub- 
ject for "Review" or searching by Ar- 
ticle Title for "Disk." 

In most cases you don't need to 
type-in the entire search term. A few 
well-chosen keywords will do. Imag- 
ine you're looking for an article titled: 
"3-D Fractals: Three-dimensional ST 
landscapes." 

But you could only remember that 
the article had the word "fractal" in 
it. No problem. Select choice 10, 
Article Title from the SEARCH BY 
menu, and type the word "fractal" at 
the "Enter Article Title:" prompt. 
Here's what you'll see: 

Enter Article Title: fractal 

6 articles selected 

ANTIC ONLINE ABSTRACTS 

1 Faster Fractals 

2 Fractals For Your Atari 

3 Fractal Zoom 

4 3-D Fractals: Three dimension 

5 Fractal Congratulations 

6 Ballblazer & Rescue On Fractal 
Enter choice ! 

The index creates a menu listing ev- 
ery article which has the word "frac- 
tal" in its title. The "3-D Fractals: 
Three Dimensional ST Landscapes" 
article is choice #4. 

Type a 4 at the "Enter choice !" 
prompt, for complete bibliographic 
information about the article — 
including author, which issue it ap- 
peared in, the page number, and 
whether there are any type-in listings. 
If the complete text of the article has 
already been uploaded, it will appear 



If the Antic Index was published 
as a book, it would contain 
more than 8,500 pages. 
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when you press [RETURN]. Other- 
wise, that [RETURN] will take you 
back to the SEARCH BY menu. 

COMBINING TERMS 

Sometimes the categories you select 
will be too broad. For example, 
searching for New Products would 
produce a selection set with more 
than 450 articles! 

Whenever your selection set has 
more than 50 articles, you can add an- 
other search method. This is called 
"narrowing" your search. Here's what 
the screen would look like at this 
point in your New Products choice: 



3 net t list er >t»jens/je«rcfi« 

I ■$* a List of kf» toeflts/Seafch* 

J Prfjrit lane 

II Article Title 
11 Itaiuiie Title 



[iter Article Title: ItS Excess 



WW 

m Eipess! 
MT1C, IN im 
ttnievs, IrUm) 



p il s iiC8L fw we ! 



The Index is 
a library and 
a database. 



Enter Department: New Products 

455 articles selected 

The Index has found 455 articles 
containing new product announce- 
ments. If you can remember anything 
else about the article, such as the year 
it was published, you can eliminate 
the articles published in other years. 

For example, if you know that the 
new product announcement was 
published in 1985, you'd narrow your 
search by eliminating all other years. 
This time, the Index will only search 
through the 455 "New Products" ar- 
ticles it found during its last search. 
It will not search through every arti- 

FEBRUARY 1989 



cle in the database. Here's what you'd 
see: 

SELECT YEAR PUBLISHED: 

1 1982 

2 1983 

3 1984 

4 1985 

5 1986 

6 1987 

7 1988 

8 1989 

Enter choice \4 

77 articles selected 

From the 455 New Product articles, 
the index has selected the 77 which 
were published in 1985. From here, 
you can continue to narrow your 
search, start a new search, or display 
a menu of the selected articles. 

SEARCH TIPS 

When combining several search 
methods, it's usually easiest to start 
with the method that will produce 
the largest selection set, and narrow 
from there. 

Since you may only "narrow" a 
selection set having more than 50 
members, try to start your search with 
the method most likely to find at least 
50 articles. The following examples 
illustrate this strategy. 

SAMPLE TASK: Find all the articles 
written by Tim Oren in 1985. 

Strategy #1: If we begin by search- 
ing Author's Name for Oren, the in- 
dex finds only 26 articles. Since we 
need more than 50 articles to use the 
"narrow" function, we must examine 
the publication date of each article, 
until we've found those published in 
1985. Strategy #2: If we begin by 
searching Year of Publication for 
1985, the index finds more than 250 
articles. From here, we narrow the 
selection set by searching Author's 
Name for "Oren." Almost immedi- 
ately, the six Tim Oren articles from 
1985 appear. A 

Antic Technical and Online Editor 
Charles Jackson designed and put to- 
gether the Antic Index and ANTIC 
ONLINE. 





Lyco Computer 

Marketing & Consultants 



Air orders processed within 24 hours. 



Lyco Means Total Service. 
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Mark "Mac" Bowser, Sales Manager 

I would personally like to thank all of our past customers for helping to make 
Lyco Computer one of the largest mail order companies and a leader in the 
industry. Also, I would like to extend my personal invitation to all computer en- 
thusiasts who have not experienced the services that we provide. Please call 
our trained sales staff at our toll-free number to inquire about our diverse 
product line and weekly specials. 

First and foremost our philosophy is to keep abreast of the changing market 
so that we can provide you with not only factory-fresh merchandise but also 
the newest models offered by the manufacturers at the absolute best possible 
prices. We offer the widest selection of computer hardware, software and ac- 
cessories. 

Feel free to call Lyco if you want to know more about a particular item. I can't 
stress enough that our toll-free number is not just for orders. Many companies 
have a toll-free number for ordering, but if you just want to ask a question 
about a product, you have to make a toll call. Not at Lyco. Our trained sales 
staff is knowledgable about all the products we stock and is happy to answer 
any questions you may have. We will do our best to make sure that the 
product you select will fit your application. We also have Saturday hours - one 
more reason to call us for all your computer needs. 

Once you've placed your order with Lyco, we don't forget about you. Our 
friendly, professional customer service representatives will find answers to 
your questions about the status of an order, warranties, product availability, or 
prices. 

Lyco Computer stocks a multimillion dollar inventory of factory-fresh merchan- 
dise. Chances are we have exactly what you want right in our warehouse. And 
that means you'll get it fast. In fact, orders are normally shipped within 24 
hours. Free shipping on prepaid orders over $50, and there is no deposit re- 
quired on COD. orders. Air freight or UPS Blue/Red Label shipping is availa- 
ble, too. And all products carry the full manufacturer's warranties. 

I can't see why anyone would shop anywhere else. Selection from our huge 
inventory, best price, service that can't be beat — we've got it all here at Lyco 
Computer 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: Monday througn Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 
, For Customer Service, call 1-717-494-1670, 
mo^O 9AM to 5PM, Mon. - Fri. FHH 

: ) Or write: Lyco Computer, Inc. ■■■■ 

P.O. Box 5088, Jersey Shore, PA 17740 

PLEASE NOTE: • full manufacturers' warranties • no sales tax 
outside PA • prices show 4% cash discount; add 4% for credit cards • 
APO, FPO, international; add $5 plus 3% for priority • 4-week clearance 
on non-certified checks • we check for credit card theft • sorry, com- 
patibility not guaranteed • return authorization required • due to new 
product guarantee, return restrictions apply • price/availability subject to 
change • prepaid orders under $50 in Continental US, add $3.00. 



MAGNAVOX 



CM-8502 

• Composite 
Color 

• Green Text 
Switch 

• Speaker 

• Suggested 
Use 130 XE 



$179 



95 



INDUS 



GTS-100 

• Atari ST 
Drive 

• 3.5" DSDD 



a 



$195 



95 



3 



SupraModem 

2400 



• fully compatible 
with industry- 
standard, intelligent 
'AT" commands 

• Compact size 

• 1-vear warranty 




$129 



95 



8088 XT ^ 



• 640K RAM 

• One 360K Floppy. 1 Parallel 
Port 

• Multi I/O (includes 1 Senal 
Port. 1 Game Port, Clock 
Calendar. Disk Controller 

I o< Two 360K's) 

• 16) Eight Expansion I/O 



• 101 Key Keyboard 

• 1 50 Watt Power Supply 

• One Year Warranty on Parta 




1-800-233-8760^ 



ATARI HARD DISK 

Super Speed 



Super Performance 

• 20 Megabyte Drive 

• Improves ST 
Performance 

• Includes Hard Disk 
Utilities 



$569 



95 




AATARr 

Cartridge Software 
3 for $9.95 

CALL FOR 
TITLES! 

Epyx 

500 XJ A 




$1395 



HeadStart 



COLOR SYSTEM 



plug in and use im- 
mediately 
IBM-XT compatible 
2-360K Drives 
Free 1-year limited 
warranty 



$969 



95 




• Hi Res color monitor included! 



.IL 



<ro " ,< * NX1000 




1080i Model II 



Panasonic, 

Office Automation.^ , 



OKjDATA 

Okimate 20 



$169 



95 



'w/cable purchase 

144 Cps Draft 

36 Cps NLQ 

EZ Soft Touch Selection 

Paper Parking 

Epson Std. & IBM Proprinter 





$149 



95* 



II r.^mn^tible 

NX-1000 $169.95* 

NX-15 $289.95 

NX-1000 Color $225.95 

NR-15 $419.95 

NB-15 24 Pin $669.95 

NX-2400 $309.95 

NB24-10 24 Pin $369.95 



• 1 50 Cps Draft 

• Friction & Tractor Feed Std. 

• Bidirectional & Logic 
Seeking 

• NLQ in all Pitches 

'Quantities limited 



Color Printer 
80 cps Draft 
40 cps NLQ 



$129 



95 



1080i Model II $149.95* 

1091i Model II $195.95* 

1092i $309.95 

1592 $375.95 

1595 $439.95 

1124 $319.95 

'quantities limited 



Okimate 20 


$129.95 


Okimate 20 w/cart .. 


$189.95 


180 


$219.95 


182 


$209.95 


182+ 


$225.95 


183 


... $239.95 



PRINTERS 



Citizen 

120 D $144.95 

180 D $159.95 

MSP-40 $279.95 

MSP-15E $309.95 

MSP-50 $369.95 

MSP-45 $349.95 

MSP-55 $469.95 



Selkosha 



SP 1200AS RS232 ... $179.95 

SL 80Ai $329.95 

MP5420FA $999.95 

SP Series Ribbon $7.95 

SK3000 Ai $349.95 

SK3005 Ai $445.95 

SPB 10 $CALL 

SL 130Ai $599.95 

SP 1600Ai $CALL 




Attention 
Educational 
Institutions: 

if you are not currently using 
our educational service 
program, please call our 
representatives for details. 



Epson 

LX800 $184.95 

FX850 $339.95 

FX 1050 $499.95 

EX800 $434.95 

LQ500 $339.95 

GQ3500 $LOW 

LQ850 $525.95 

LQ1050 $749.95 

INTERFACING AVAILABLE 



Brother 

M1109 $189.95 

M1509 $335.95 

M1709 $439.95 

Twinwriter 6 Dot & 
Daisy $899.95 




Access: 

Triple Pack $1 1 .95 

Leader Board Double 

Pack $9.99 

Activision: 

Music Studio $19.95 

Great American Road 

Race $9.99 

Droderbund: 

Print Shop $26.95 

Graphic Lib. I, II or IIL.ea. $14.95 

Electronic Arts: 

Pinball Con. Set $8.95 

One on One $8.95 

Lords of Conquest $8.95 

Super Boulderdash $8.95 

Music Construction 

Set $8.95 



Access: 

10th Frame $22.95 

Activision: 

Music Studio 

Broderbund: 
Superbike Challenge .. 
Typhoon Thompson ... 
Electronic Arts: 
Hunt for Red October . 
Awesome Arcade Pack 



$27.95 



$11.95 
$21.95 



Epyx: 

Dive Bomber 

Impossible Mission 2 . 

Winter Games 

Firebird: 



. $32.95 
$30.95 



$22.95 
$22.95 
$11.95 



Universal Military 
Simulator 



Microleague: 

Microleague Baseball .. 

Micro. Wrestling 

Mlcroprose: 

F-15 Strike Eagle 

Gunship 

Mlndscape: 

Road Runner 

Indiana Jones and the 
Temple of Doom 

Origin: 

Autoduel 

Ultima IV 

Strategic Simulations: 

Questron II 

Heroes of the Lance ... 



$33.95 
$25.95 



$24.95 
$28.95 



$27.95 
$27.95 



$24.95 
$34.95 



$32.95 
$25.95 



Magnavox: 

BM7652 $79.95 

BM7622 $79.95 

CM8502 $179.95 

Interfacing : 

Xetec AT $39.95 

Microprint $39.95 

PR Connection $62.95 

Printer 

Connection $39.95 

DEALER 
INQUIRIES 
INVITED 



5-1/4 M 




Disk Notcher 


$5.95 


Maxell: 




SSDD 


$7.95 


DSDD 


$8.95 


Bonus: 




SSDD 


$5.95 


DSDD 


$6.95 


SKC: 




DSDD 


$6.95 


DSHD 


... $13.95 



Diskettes 



Generic: 

DSDD $4.95 

Verbatim: 

SSDD $8.99 

DSDD $11.50 

3.5 

Maxell: 

SSDD $11.50 

DSDD $17.95 



Bonus: 

SSDD $10.95 

DSDD $13.95 

Verbatim: 

SSDD $12.95 

DSDD $18.95 

SKC: 

SSDD $9.95 

DSDD $13.99 




Winner 909 $24.95 

Wico IBM/AP $29.95 

Lipstick Plus $14.95 

Kraft KC III Ap/PC $16.95 

Kraft PC Joystick 

Card $27.95 

Kraft Maze Master $8.95 

I Controller $13.95 

Epyx 500 XJ $13.95 



Avatex: 

1200e $65.95 

1200i PC Card $65.95 

1200p $89.95 

1200hc Modem $89.95 

2400 $149.95 



Supra: 

300 $119.95' 

1200 $119.95* 

2400 $129.95 

* limited quantities 

Avatex 

2400 
Modem 

$149 95 




QVS-10 5i/4 $3.95 

QVS-75 51/. $10.95 

QVS-40 31/2 $9.95 



Join the thousands who shop Lyco and Save 



type-In Software 



GAME OF THE MONTH 



Roulette, Atari Style 

You won't lose your shirt to the 8-bit croupier. By Michael Pemberton 



IB 0BQI EBEQI Q3B3 ESI 
D EQD3 133 EQED 



:A>H AVAILABLE! $500 



BET ON SOUARE 8,9,11,12 CY/M> ?\ 
AMOUNT ? 2 5011 



Why buy a roulette table when 
your Atari can be a champ- 
ionship casino croupier? This BASIC 
program works on 8-bit Atari com- 
puters with at least 48K memory, 
disk or cassette. 



My luck in casinos has been con- 
sistently poor. I figured that the best 
way to survive an upcoming trip to 
Vegas would be to practice the games 
I was most interested in — craps, black- 
jack and roulette. 

Now, I own some dice and some 
cards, but I don't know anyone with 
a roulette table stashed away in the ga- 
rage. Undaunted, I rolled up my 
sleeves, put on my shaded visor and 
wrote a program to play Roulette on 



my Atari 800. 

GETTING STARTED 

Type in Listing 1, ROULETTE. BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 140-144, don't 
type them in. Instead, type Listing 2, 
check it with TYPO II and SAVE a 
copy. When you RUN Listing 2, it cre- 
ates these hard-to-type lines and stores 



them in a file called LINES. LST. To 
merge the two programs, disk users 
LOAD "D : ROULETTE . BAS ' ' and then 
ENTER "D: LINES. LST." Cassette users: 
CLOAD Listing 1, then insert the 
separate cassette used for Listing 2 
and ENTER "C:". Remember to SAVE 
the completed program before you 
RUN it. 

When you RUN Roulette, the titles 
will appear and the screen will go 
blank for about 10 seconds while the 
program draws the gameboard, color- 
ing the "red" numbers with 
Player/Missile graphics. When the 
screen turns on again, the Roulette 
board will appear with the cursor in 
the upper left-hand corner. 

With a joystick in Port 1, you can 
move the cursor to any position on 
the board and place bets. Pressing 
the joystick button puts a chip at 
the cursor position. A buzzer will 
sound if you try to place a bet on an 
illegal spot. 

You'll be asked to verify the bet 
and say how much money you want 
to wager. You can risk any amount on 
a single bet, as long as you don't ex- 
ceed the amount of cash you have on 
hand. Betting $0 counts as no bet, and 
your chip will be removed from the 
board. To increase the amount of a 
bet, just put a second bet in the same 
area of the board and the software 
will add it in. 

Once you place all your bets, press 
[START] to spin the wheel. The spin- 
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ning numbers will appear below the 
betting board and will go through the 
whole sequence at least twice before 
settling on a winning number. 

When that winning number comes 
up, the computer will determine your 
winnings, if any, listing each success- 
ful bet with the amount of money it's 
won for you. If you go broke, the 
computer will let you start over. To 
bet again, just press [RETURN] . That's 
all there is to it. 

BETTING ON ROULETTE 

Now all you have to do is learn the 
authorized roulette bets. 



(for example, 7, 8, 10, 11). Put your 
chip at the point where they all meet. 
Pays 8 to 1. 

5. Line bets (5): you bet on the five 
numbers 0, 00, 1, 2, 3. Put your chip 
at the top or bottom of the line that 
connects these five numbers. Pays 
6 to 1. 

6. Line bets (6): you bet on the six 
numbers that border one of the 11 
vertical lines on the board (for exam- 
ple, 13 through 18). Put your chip at 
the top or bottom of the line you're 
betting on. Pays 5 to 1. 

7. Column bets: you bet on the 12 
numbers in one of the three horizon- 



There are 11 
different kinds of bets in 
Roulette. This may sound complex, 
but the system is actually 
very easy to learn. 



There are 11 different kinds of bets 
in Roulette. This may sound complex, 
but the system is actually very easy to 
learn, and you place bets with this 
program exactly as you would if you 
were in a real casino. Here is how the 
bets work: 

1. Straight bets: you bet on any 
single number. Put your chip right 
inside that number's square. Pays 35 
to 1. 

2. Split bets: you bet on any two ad- 
joining numbers (0 and 00 adjoin only 
each other). Put your chip on the line 
between the two numbers. Pays 17 
to 1. 

3. Street bets: you bet on any three 
numbers in a vertical line. Put your 
chip on the outside edge of the board 
(top or bottom) where the "street" 
ends. Pays 11 to 1. 

4. Square bets: you bet any four 
numbers grouped together in a square 



tal ranks across the board. Put your 
chip on the right-hand edge of the 
column you're betting on. Pays 2 to 1. 

8. Dozen bets: you bet on either the 
first, second or third dozen numbers 
on the wheel. All dozens lose on 0 or 
00. Put your chip inside the 1ST 
DOZEN, 2ND DOZEN or 3RD 
DOZEN box. Pays 2 to 1. 

9. High/Low bets: you bet on either 
1 to 18, or 19 to 36. All high/low bets 
lose on 0 or 00. Place your chip in 
either the 1-18 box or the 19-36 box 
respectively. Pays even money. 

10. Odd/Even bets: you bet on 
whether the winning number will be 
odd or even. All odd/even bets lose 
on 0 or 00. Put your chip in the ODD 
or EVEN box. Pays even money. 

11. Black/Red bets: same as 
Odd/Even, except you put your chip 
in the BLACK or RED box. Pays even 
money. 



I have yet to find any betting 
strategy that wins consistently (no 
surprise there!), but I'll keep trying. 
Maybe you'll do better. 

PROGRAM TAKE-APART 

The key to this Roulette program 
lies in the configuration of BET$, 
which identifies the kind of bet be- 
ing made. The ATASCII value of each 
character in BET$ specifies a certain 
type of bet— 1-38 are the straight bets, 
39 is a line bet (5), 40-97 are the split 
bets, etc. The program notes the cur- 
sor's horizontal and vertical position 
when a bet is made, uses them to 
identify a corresponding character in 
BETS, translates this character into a 
numerical value with the ASC func- 
tion and then decodes and records 
the bet in the appropriate variable. 

The wheel is spun via the RND 
function, and it will go through two 
to five complete rotations before stop- 
ping on a number. The starting posi- 
tion for successive spins is the num- 
ber which has just won. (This 
happens in Las Vegas roulette too.) 

Finding out which bets (if any) have 
won is simple. The possible winning 
numbers are determined for each bet, 
and if one matches the actual winning 
number, the original amount bet is au- 
tomatically returned to your stake and 
the winnings are calculated. 

10-510 Game Setup 
900-1070 Cursor Movement 
1075-1160 Interpret Bet Type 
1190-1630 Record Bets and 

Amounts 
2000-2040 Spin the Wheel 
3000-3530 Display Winnings 
4100-4520 Bet and Gameboard 

Subroutines 
5000-5060 Gameboard Configu- 
ration 

6000-6120 BET$ Character Codes 
6130-6140 Roulette Wheel 

Numbers A 

Michael Pemberton is working on a Ph.D. 
in English at the University of Califor- 
nia, San Diego. 

Listing on page 26 
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Order Toll Free J£ since \m * * Order Toll Free 

800-558-0003tomput(/ibiUt#800-558-0003 



WI Orders & Info 414-357-8181 



Disk Drives 



C on &umet JElecttonlci 



LtCd wi Orders & Info 414-357-8181 



Supra 20 Meg 569 

Supra 30 Meg 649* 

*J^EUiI^)eliver^^ 
Indus GTS-100 189 

3.5- 8F-314 Compatible 

IB 5.25" 219 

ST Host Controller .Call 
Drive Master 44.95 



Digitizer Special I IBM Emukition Special I ST ACCESSORIES 



IMG Image 
Scanner 



MODEM SPECIAL 



Supra 2400 baud modem 
• ST modem cable 
Rash VI. 6 Software 



Package Includes 

• PC Ditto 

• ST/PC 5.25" Drive 





MIDI Synth Special 



CASIO HT-700 Midi 

Synthesizer and Keyboard with PCM, 



Anti-Glare Screen 19.95 

Drive Master 44.95 

3.5 Drive Clean Kit 9.95 

6 Way Surge Protector. 14.95 
6 FT SF 354/31 4 Cable. 19.95 

Monitor Master 44.95 

Mouse Master 34.95 

Mouse Pad 8.95 

Mouse House 6.95 

3.5" SS/DD Disks** 11.95 

3,5" DS/DD Disks** 15.95 



illlll 




Computer 

Special 
130XE $299\ 

Computer 
With XF-551 



{XF-551 Disk Driven 
Double Density 

$179 




XEP-80 80 
Column Card 

$79.95 
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'Modem Package] 

Avatex 1200 HC» P.P. Connec 
Hon • 850 Express Software • 
Cable $170 



Misc. Hardware 



PR-Connection 59.95 

US Doubler 49.95 

Animation Station 59.95 

Supra 1150 Interface CALL 

Graphic AT Interface 39.95 

k J 



f JOYSTICKS** 

Wico Super 3-Way 19.95 

Starfighter 8.95 

Tac3 10.95 

Tac5 14.95 

Slick Stick 7.95 

Epyx500XJ 12.95 

Epyx 200 XJ 9.95 



§3< H 



V 



(Note: prices good with any other purchace) 



J 



Panasonic 

1080-i -II 149 

1 091 i - 1 1 185 

1092 329 

P1124 l\IEW24pin 339 

.aser Partner 1599/ 



MODEMS 

Avatex 1200 E 69 

Avatex 2400 HC 155 



Supra 2400 SPECIAL 149 

SPECIAL INCLUDES : Supra 2400 modem, cable 
and Free shipping in Continental USA . 



^ACCESSORIES^ 


f Star 




5.25" Disk Notcher 4.95 


NX-1000 


175 


6 Way Surge Protector14.95 


NX-1000 Rainbow 


229 


Printer Stand 5.95 


NX-2400 


319 


^1000 Sheets Paper 19.95/ 


\LASER 


1795^ 



Battle of Anttotam 32.95 

Computer Ambush 38.05 

Bernal Dagger 26.85 

Gettysburg 39.85 

Karripfgruppe 39.95 

Mech Brigade 39.95 

Phantasle 26.95 

Phantasiell 26.95 

Rebel Charge Chfckamauga 32.85 

8hlbh 26.85 

8ons of Ubefty 26.85 

U.8AA.F 38.95 

War In Russia 52.95 

Wargame Construction 8et 20.95 

Warship 39.95 

Wizards Crown 28.95 



8-Bit Atari Software 



Electronic Arts ! MICR0PR0SE 



Alemate Reallly:Cfty 20.95 

Alternate Reality: Dungeon 20.95 

Bbmark 20.95 

Napolean In Russia 18.95 

Tomahawk 20.95 

Video Title 8hop 20.95 

Battle of Chlckamuga 23.95 

Rommel Tobruk 26.95 

8tarfleet1 33.95 

Chessmaster 2000 26.95 

7T 



Crusade In Europe 25.95 

Conflict In Vietnam 25.95 

Decision hi the Desert 25.95 

F-1 5 Strike Eagle 22.95 

8lent 8erv.ee 22.95 

Top Burner 16.95 



Miscellaneous 



c 



NEW Diamond OS 
18.95 
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We Have Many Programs For The Atari 400/ 
800/XE/XL. If You Don't See It Here : CALL 



10 Lltb Robots 18.95 

1988 Team Disk For MLB 14.95 

1987 Team Disk For MLB 14.95 

Ace of Aces 18.95 

Al 8tar Roster Disk 14.95 

Apshal Trilogy 14.95 

Award Ware 10.95 

Blazing Paddles 22.95 

Bop-n- Wrestle (64k) 19.95 

Boulderdash Const. Kit 12.95 

Champ. Loadrunner 19.95 

Cycle Knight 18.95 

Deeper. DngrVQauntlet 17.95 

FJectronlc Checkbook 14.95 

Electric Datamanager 14.95 

Fleet8ystem2 39.95 

Right Simulator II 33.95 

Fraction Action 18.95 

Bauntlet (64k) 22.95 

General Manager for MLB 19.95 



Guitar Wizard 18.85 

Infiltrator 18.95 

Jupiter Mlsion 1999 32.95 

Leaderboard Duo Pak 10.95 

Love Note Maker 10.95 

Mastertype 25.95 

Math Blaster 32.95 

Micro League Basebal 25.95 

MLB Box/8tat 14.95 

Networth 25.95 

Newsroom 31 .95 

Print Driver Const 8et 18.95 

R Time 8 Cart 54.95 

Raoecar Arithmetic 18.95 

8oenery Disk #11 17.95 

8parta Dos 29.95 

8partaToob 22.95 

8py Vs. 8py 3 12.95 

Spell It 32.95 

Spinnaker CALL 



8pltflre40 23.95 

8trlp Poker 21.95 

8uperHuey 16.95 

8ummer Games 12.95 

Trlppto Pak 14.95 

Tralbiazer 19.95 

Universe 32.95 

Word Attack 32.95 



BR0DERBUND 



Graphics Library 1 16.95 

Graphics Library 2 16.95 

Graphics Library 3 16.95 

Karateka 19.95 

Print 8hop 28.95 

Print Shop Companion 22.95 

Ullmalll 25.95 

UllmtIV 38.95 



Order Toll Free 

800-558-0003 

WI Orders & Info 414-357-8181 
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IstCadd 31.95 

1st Letter* ind Words 20.05 

1stWorr>PliB 67.85 

220 8T „ 32.85 

30 Developer's Ms* 18.85 

3D Font Package 1 or 2 17.85 

3D Plotter & Printer Driver 17.85 

A-Calc Prime 25.85 

A-Cnart 14.85 

AB-Zoo 18.85 

Abacus Books CALL 

Adip 1548.85 

Adv.of8inb«d 31.85 

Aegis Animator 43.85 

Aesop Fables 31.85 

Al About America 36.85 

Animal Kingdom 24.85 

Animator, The 25.85 

Arabian rights 31.85 

Architecural Design Disk 18.85 

Art and Film Director 48.85 

Art8aJlery1,2,or 3 18.85 

Assempro 38.85 

Athena II 67.85 

Award Maker 24.85 

BackPak 64.85 

Base Two 38.85 

BBS ZO 49.85 

CAD - 3D 18.85 

Calendar 18.85 

Cartoon Design 18.85 

Certllcate Maker 25.85 

Chart Pak8t 32.85 

Circuit Maker 67.85 



Copyist 2 158.85 

Cornerman 32.85 

Crystal 14.85 

Cyber Control 38.85 

Cyber Paint 44.85 

Cyber Sculpt 64.85 

Cyber Studio, The 58.85 

Cyber Texture 32.85 

Cyber VCR 49.95 

Data Manager 8T 48.95 

Datamaps 17.95 

Datmaps II 17.95 

DB Man 4.0 144.95 

Decimal Dungeon 24.95 

Degas Elte 38.95 

Deluxe Mlnkxxn 39.95 

Desk Cart 68.95 

Desk Top Publshar 89.95 

Education Graphics 25.95 

People, Places, Things Graphics 25.95 

Symbols & Slogans Graphics 25.85 

Digl-Drum 24.95 

Draftx 114.95 

Drafbr Large Data Plotter 87.95 

Draw Art Pro 49.95 

Dsk Tp Pub Lfc/Easy Draw 64.95 

Dyna Cad 449.85 

Easy8core 67.85 

Easy Tools 32.85 

Bectro Calendar 35.95 

EZ 8core Plus 104.95 

Fast 31.95 

Financial Plus 114.95 

Fingers 34.95 



First Shapes 20.85 

Rash 1.6 18.85 

Flashback 78.85 

Font Pak 1 for Easy Draw 25.85 

Fonts 4 BorderVP.M 21.85 

Fontz 22.85 

Forth MT 32.85 

Fraction Action 24.85 

Future Design Disk 18.85 

9 Plus + 27.85 

9.I.8.T. 22.85 

Genesis 48.85 

GFA Artist 48.85 

GFA Artist 48.85 

GFA Basic ZO 18.85 

GFA Basic 3.0 84.85 

GFA Book 3.0 18.85 

GFA Companion 32.85 

GFA Compiler 38.95 

GFA Draft + 99.95 

GFA Object 67.95 

GFA Vector 32.95 

Ghostly Grammers 31.95 

Gin Patch 104.95 

Hard Disk Backup 25.95 

Human Design Disk 19.95 

Hyper Switch 19.95 

IB Copy 21.95 

IB Disk Utility 21.95 

IB Hard Disk Back Up 21.95 

Informer. The 67.95 

Interihk 24.95 

Invasion 19.85 

Juggler Utllty 32.95 



KC8 Level II 189.95 

Keyboard Contr Sequencer 149.95 

Keys 48.95 

Kid Talk 20.85 

Ktoderama 24.85 

LabelmastBr EIHo 27.85 

Lands of the Unicom 21.85 

Laser C 124.85 

LCS Wanderer 25.85 

LOW Basic ZO 54.85 

LDW Power 99.95 

Logic Master 31 .95 

LogistlxJr 57.95 

M-Cache 25.95 

M-Dbk+ 25.95 

Macro Mouse 22.95 

Magical Myths 31.95 

Major Motion 25.85 

Make It Move 46.95 

Maps and Legends 22.95 

Mark Williams C 114.95 

Mark Williams C8D 43.95 

Master Cad 124.95 

Master Plan 58.95 

Master Tracks Pro 219.95 

MathTak 20.95 

Math Talk Fractions 20.95 

Math Wizard 24.85 

Mavis Beacon Typing 32.95 

Micro Cookbook 32.95 

Micro Lawyer 39.95 

Microbot Design Disk 19.95 

Mid Maze 25.95 

Mighty Mall 32.95 



Mlnlcom 25.95 

Mother Goose 19.95 

MouseTracks 84.95 

Music Construction 8et 33.96 

Music 8tudk>88 38.95 

Navigator. The 32.95 

Neo Desk 18.95 

P.I.E 19.95 

PAGE 8TREAM 127.95 

Paintpro 32.95 

Partner Fonts 1 or 2 19.95 

Partner Forms 19.95 

Partner 8T 32.95 

PC Ditto 3.0 64.95 

Personal Draw Art I 19.95 

Personal Money Mgr 32.95 

PHAIar 58.95 

Powerplan 49.95 

Printmaster Pkis 24.95 

Pro Drum 19.95 

Pro Midi 19.95 

Pro 8ound 19.95 

Pro 8ound Designs 84.95 

QMI BBS ST 31.95 

Quicktran 22.95 

Read A Rhyme 24.95 

Read-A-Rama 31.95 

Realtber 150.95 

RegBrt Base 1.1 79.85 

Regent Word II 48.85 

Revolver 32.85 

Roland D/1 10 74.85 

8canArt 32.85 

8core Writer 25.85 



8hadow 18.85 

Space Math 25.85 

8pectrum512 43.85 

8pellerBee 20.85 

ST Art Director 48.85 

8T Becker Text ST 87.85 

St Doctor 24.85 

8T Replay 74.85 

8T Sprite Factory 25.85 

8TTa* Professional 18.95 

8uper Charged EZ Draw 99.95 

8uperbase Personal 46.95 

8uperbase Pro 179.95 

8wrftcalc8T 48.95 

Sylvia Porter 48.85 

8ympte Trac 414.85 

SyncTrac 268.85 

Technical Draw Art I 18.85 

Tempua 32.95 

Textpro 32.95 

Thunder 26.95 

Time Bandits 25.95 

Time Link 33.85 

Trimbase 84.85 

Tune Up 32.85 

Tunesmith 87.85 

Turbo ST 32.85 

Utlty Plus 38.85 

Video Key 84.85 

Video Titling Design 19.85 

VIP Professional 64.85 

Word Perfect 134.85 

Word-Up 48.85 

WordwriterST 48.85 



NEW LOWER PRICES 
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'86 Team K For MLBB 16.85 

3D Break-Thru 25.85 

Academy 24.85 

Advanced D&D Heros of the Lance 26.85 

Aetal 24.85 

Ab-bal Construction Kit 17.85 

Afcon 25.85 

AlenRres 26.85 

Al Aboard 15.95 

Alemate Reality 25.85 

Android Decision 22.95 

Annals of Rome 22.95 

Apshal Trilogy 14.95 

AquaVenture CALL 

Arctic Fox 13.95 

Arena 14.95 

Arkanold 22.95 

Art 4 Flm Director 44.95 

Attack on London 21.95 

Autoduel 24.95 

Awesome Arcade Act Pack 32.95 

Balance of Power 32.95 

Barbarian 25.95 

Bard's Tale 31.95 

Battle SNp 17.95 

Bermuda Project 25.95 

Berzerk3 22.95 

Better Dead Than Alien 21.95 

Bbmark 25.95 

Black Cauldron 25.95 

Black Lamp 17.95 

Bbck Buster 25.85 

Boulder Dash Cons Kit 17.85 

Breech 25.85 

Bridge 5.0 22.85 

Bubble Bauble 25.85 

Bubble Ghost 21.85 

Calfomla Games 28.85 

Capt. Blood 32.85 

Card8harks CALL 



No surcharge for M 
MasterCard E& 
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800-558-0003 



Carrier Command 29.95 

Centerfold Squares CALL 

Champ Wresting 12.95 

Chessmaster 2000 28.95 

Chronoquest 32.95 

Corruption 29.95 

Cosmic Relief 23.95 

Crystal 14.85 

Cyber Complex 18.95 

Dark Castle 29.85 

Death 8word 12.85 

Defender of Crown 32.85 

DefaVu 32.85 

Dive Bomber 28.85 

Double Dragon 28.95 

Dungeonmaster 24.95 

Bite 29.95 

Empire 31.95 

European Scene Disk 17.95 

Extensor 18.85 

M58trikeEagle 25.85 

Female Date Strip Poker 16.85 

HnalAssul 28.85 

Fire and Forget 25.85 

RreZone 23.95 

Right Simulator II 32.95 

Foundation Waste 24.95 

Fright Run 25.85 

Games : Summer Ed 28.85 

Games : Winter Ed 28.85 

Gato 24.85 

Gauntlet 32.85 

Gbdator 25.85 

Global Cmmdr 28.95 

Gold of the Realm 24.95 

Goldronner 25.85 

Gokturmer 8cen Disks 1 Or 2 10.95 

Goldnmnert 25.95 

GoneRshn 29.95 

Guild of Thieves 29.95 



Gunship 32.95 

Harrier Combat 8imuiater 32.95 

Hero's of the Lanoe 25.95 

Hole In One Miniature Golf 18.95 

Hollywood Poker 18.85 

Hunt tor Red October 33.85 

Hyperdome 22.95 

I Ludicrous 21.85 

Ikari Warrior 25.85 

Impossible Miss II 28.85 

Indoor Sports 32.85 

International 8oocer 25.85 

Into the Eagle's Nest 25.85 

Japan Scenery Disk 17.85 

Jet 32.85 

Jlnxter 25.85 

Joker Poker 32.95 

Jupiter Probe 17.85 

Karate Kid II 25.85 

Karateka 22.85 

King's Quest 1 32.85 

King's Quest 2 32.85 

King's Quest 4 NEW 32.95 

King's Quest 3 32.95 

KosmlcKreig 25.95 

Lancelot 26.95 

Leader Board Duo Pak 17.95 

Leatherneck 25.85 

Leatherneck 4 Player Adaptor 13.85 

Leisure 8uit Larry 25.85 

Leisure 8uit Larry 2 bok'n for love 32.95 

Leviathon 10.95 

Lock On 25.95 

Lords of Conquest 13.95 

Lords of the Rising 8un 32.95 

Major Motion 25.85 

Manhunter New York 32.95 

Master Nlnja 26.95 

Match-point 25.85 

18.85 



Metrocross 13.95 

Metropolis 2000 st 22.95 

Micro League Basebal II 39.95 

MoeWus 24.95 

MONOPOLY 25.95 

Mortviue Manor 22.95 

Murder on the Atlantic 25.85 

Night on the Town 22.85 

ObHterator 25.85 

Olds 21.85 

Omega Run 25.85 

Operation Wol 25.85 

Outrun 32.95 

Overlord 25.85 

Paladin 25.95 

Paper Boy 32.95 

Phantasle1.2or3 25.95 

Phantasm 22.95 

Pinball Factory 25.95 

PinBall Wizard 21.95 

Platoon 25.95 

Pkitos 19.95 

Police Quest 32.95 

President Elect '88 18.95 

Q-Ball 19.95 

atx 25.95 

Questran II 31.95 

Rastan 25.95 

Rebel Charge © Chickamauga 38.95 

Rebel Universe 25.95 

Red Alert 11.95 

Renegade 25.95 

Rings of Zllfln 25.95 

Road Raider 32.95 

Road Wars 20.95 

Roadrunner 32.95 

Roadwar2000 25.95 

Roadwar Europa 28.95 

Rocket Ranger 32.95 

Rockford 20.85 



RPV 24.95 

Rublcom Allance 20.95 

8.D.1 32.95 

8crabble 25.95 

8cruptes 25.95 

8entry 29.95 

8hadowgate 32.95 

8hoot the Moon 25.95 

8huttle2 25.95 

8lent8ervlce 25.95 

8»pheed 22.95 

8lnbad 32.95 

8ky Blaster 18.95 

8ky Chase CALL 

8kyfox 14.95 

8bygon 25.95 

8orcerer Lord 23.95 

8pace Cutter 19.85 

8paoe Harrier 32.85 

8pace Quest 1 or 2 32.85 

Space 8chool8lm 22.85 

8peed Buggy 25.85 

8 ports- A- Ronl 13.95 

8py vs8py 3 17.95 

8T Comes Alve 19.95 

8tar Fleet 1 34.95 

8tar Glider II 29.95 

8tar Quake 18.85 

8tar Wars CALL 

8tarstruck 14.85 

8telar Crusade 36.85 

8treet Cat 13.85 

8treet 8oocer 28.95 

8trlpPoker2 25.85 

8ub Battle 81m 23.85 

8undog 22.85 

8uper Cycle 12.85 

8 upe r 8tar Hockey 32.85 

8uper 8tar 8occer 32.85 

TV. 8ports Footbal 32.85 



Tanglewood 25.95 

Techno Cop 28.95 

Temple Apshal Trilogy 12.95 

Temple of Doom 32.95 

Terror Pods 25.95 

Test Drive 24.95 

Tetra Quest 25.85 

Three 8tooges 32.95 

Time AndMaglc NEW 26.95 

Time Bandits 25.95 

Tonic Tie 25.95 

Tower Toppter 28.95 

Tracker 29.95 

TralWazer 32.95 

Transputer 22.95 

Twilights Ransom 22.95 

Typhoon Thomson 22.95 

UlimalllorlV 25.95 

Uninvited 32.95 

Universal Miliary Simulator 32.95 

Urtverse II 32.95 

Uridkim 25.95 

Vampire's Empire 18.95 

Vegas Gambler 22.95 

Vtojs 19.95 

War8hlp 38.95 

Wargame Construction Set 22.95 

Wartock 21.95 

Warship 38.95 

Western Europe Seen Disk 17.95 

Western Games 18.95 

Winter Chalenge 10.95 

Winter Games 12.95 

Wlzball 14.95 

Wizard's Crown 25.95 

World Games 12.95 

WWF Micro Wrestling 39.95 

Xevlous 19.95 

Zynaps 22.95 



P.O. BOX 17882.MIL WAUKEE.Wl 53217 

ORDER LINES OPEN 
Mon-Frl 9an>9pm CST Sat 11 am-5 



mwwwm No surcharge for m _ w , , , _ nj 

j P ^.jy iP vM For Technical Into, Order 

_ . . . . «Y!?A Inquiries!, or for Wlao. Order* 

Telox Number 0102406440 M J,L ' ___ ^ . _ _^ 

(ANSERBAcx.coaapuriw.wuQ) 41 4-357-81 81 



OMMMMQ ■ronaiJITIIHI PImm apeotty ay atom. For fa at delivery send oaahlafa check or moo ay order. Per* one I and company ehaoka allow 14 business day* to dear. School P.O.'a welcome. COD. ohargea «ra $4.00. In Continental USA Include $3.00 for aoftwa/a order i 6% shipping 
for hardware minimum $6.00. MasterCard and Vlaa order* pleaee Include card #. expiration dale and signature. Wl resident* please Include 5% tale* tax. HI. AK. FPO. APO. Puerto Rico and Canaolan order*, please add e% shipping, Mnbnum tfcOO. All other foreign order* add 10% 
shipping, mtobnum SISjOO. All order ihlpped out* Ida the Continental U.SA an* shipped first oiaaa Iniured U.S. malL tf foreign (hipping change* exceed the minimum amount, you wll be charged the additional amount to (jet your package to you quickly and safety. Al good* ant near and 
Include factory warranty. Due to our tow prtoea al tale* are final. All defective returns must have a return authorization number. Pleat* call (414)357-8181 to obtain an RAt or your return wll not ba accepted Prioee and avaJkbtlty subject to change without n otto a. 



lype-lu Software 



EDUCATION 



Spelling Flashcards 

Friendly quiz that kids like using. By Andy Barton 




Spelling Flashcards is a simple, 
versatile spelling quizzer for all 
ages. It's enjoyable for kids, without 
intimidating them by excessive flash. 
This BASIC Program works on all 
Atari 8-bit computers with at least 
48K memory and a disk drive. 



Spelling Flashcards is a simple, ver- 
satile spelling drill for all ages. Like 
Math Flashcards, the predecessor 
program I wrote (Antic, October 
1987), this spelling quizzer program 
is friendly and interesting with a lit- 
tle color and music. But it doesn't dis- 
tract or intimidate kids with unduly 
flashy displays. 

You easily create your own lists of 



hard-to-spell words. Then Spelling 
Flashcards will randomly pick a word 
and flash it on the screen. 

If you spell the word correctly, 
you're rewarded with an ever- 
changing little tune. Otherwise, the 
screen turns red, the word flashes 
again, incorrect letters are blanked out 
and you get to try again. After you 
type the word correctly, that word 



will be repeated three more times dur- 
ing the quiz to help you get it down 
perfectly. 

Speed is important, too. If you take 
too long to spell a word, the program 
considers it incorrect. At the end of 
the quiz, Spelling Flashcards shows 
you the number of correctly spelled 
words and the total number of words 
tried. 

GETTING STARTED 

If you put Spelling Flashcards on a 
separate disk, its menu will be easier 
to read. Format a fresh disk with DOS 
2.0 or DOS 2.5 and write the DOS 
files to it. Type in Listing 1, SPELL- 
ING. BAS, check it with TYPO II and 
SAVE a copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 5860-5870, 
don't type them in. Instead, type List- 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES. LST. 
To merge the two programs, LOAD 
"D : SPELLING. BAS ' * and then ENTER 
"D: LINES. LST." Remember to SAVE 
the completed program before you 
RUN it. 

When RUN, the program displays 
a file menu of all the Spelling Flash- 
card lists on your disk. The menu at 
the bottom of the screen lets you load 
one or more Spelling Flashcards lists, 
edit a list, or create a new list. 

Type a list's number to load it into 
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Spelling Flashcards. You can choose 
a single number, several numbers 
separated by commas or two numbers 
separated by a hypen, indicating a 
block of files. For example, type a 3 
to load list number 3. Type 3,5,9 to 
load lists 3, 5 and 9. Type 5-8 to load 
lists 5, 6, 7 and 8. 

Edit a list by typing E followed by 
the number of the list you wish to 
edit. For example, typing E7 will let 
you edit list number 7. Finally, type 
N to create a new list of spelling 
words. 

CREATING A LIST 

If you're typing-in SPELLING. BAS, 
you'll need to create a few lists before 
you continue. Antic Disk owners will 
find several spelling lists on this 
month's disk. These lists have a .DAT 
file extender. 

To begin your list, type N. The pro- 
gram will ask you for a title of your 
list. The title can be up to 8 charac- 
ters long, and will be used to store 
your list to a disk file. While you may 
type most anything you wish, the 
program will adjust it to conform to 
a standard Atari disk filename, and 
add a .DAT extender. 

Spelling Flashcards will display the 
adjusted filename and ask you if it is 
correct. Press N to change the file- 
name, or press any other key to ac- 
cept it. Pressing [RETURN] without 
typing a title sends you back to the 
main menu without creating any new 
lists. 

Next you're asked to select the 
number of seconds you wish the 
word to be flashed on the screen. The 
default is 0.75, but younger children 
might find one or two seconds more 
reasonable and less threatening. You 
can also change this value later in the 
Edit mode, if you wish. 

Now type in your list. Each word 
can be as many as 15 characters long, 
including hyphens, apostrophes, and 
spaces. Numbers and lowercase letters 
are not allowed. You may have up to 
40 words per list. When you're done, 
press [RETURN] to save your list to 



disk. 

PLAYING THE GAME 

After the program loads the list(s) 
you selected, you'll see the words dis- 
played onscreen for you to review. 
Press any key to start the drill. 

Spelling Flashcards randomly 
selects a listed word and briefly 
flashes it onscreen. Your task is to type 
it in. The [DELETE] and arrow keys 
will fix any typing mistakes you make. 
After you spell the word, the program 
will check it. There is no need to press 
[RETURN]. 

Correctly spelled words are re- 



warded with a brief ever-changing 
tune. Misspelled words turn the 
screen red and must be corrected. 
They are repeated three times on or- 
ange screens, mixed in with new 
words. 

If you are totally stuck, press [RE- 
TURN] to flash the word onscreen 
again. This counts as a misspelling. If 
you do not type the word quickly 
enough, you'll also be penalized for 
a misspelling. 

Errors are not monitored directly, 
but the number of tries and the num- 
ber of correct answers are counted. 
The purpose of the drill is to teach, 
not penalize. 

When you're done, Spelling Flash- 
cards plays a longer random tune. 
Press any key to go on to your next 
list or return to the main menu. 

EDIT A LIST 

The New List and Edit options 
share a section of programming. Ad- 
ding, correcting and deleting words 
is done the same way. When a key is 



pressed, a Graphics 2 window opens 
in the middle of the screen. You'll en- 
ter and edit words within this 
window. 

To add a word simply type it. To 
edit a word, type the number of the 
word in the list displayed onscreen, 
then edit the word. You don't need 
to press [RETURN], but the second 
digit of a two-digit number must be 
pressed within 0.5 seconds. 

The [DELETE] and [CONTROL]- 
[DELETE] keys work in the normal 
Atari fashion. Move the cursor (a blue 
bar below the letters) with the left and 
right arrow keys. You do not need to 



press [CONTROL] to use these keys. 

Press [RETURN] to accept the word 
and display the updated list. To de- 
lete a word, simply bring it into the 
window by typing its number, [DE- 
LETE] or [SPACEBAR] over each let- 
ter and press [RETURN]. When you 
are finished with a list, press [RE- 
TURN] to save it to disk and return 
to the main menu. 

PROGRAM TAKE-APART 

Spelling Flashcards is written up- 
side down, with the initialization rou- 
tines and lesser-used portions at the 
end of the program. The frequently 
used subroutines are at the top, where 
BASIC can find them quickly. 

Lines 5500-5570. The initialization 
section starts with a table of 
parameters which you can customize. 
DVIEW in line 5550 is the default 
value for the length of time a word 
is flashed on the screen. You can ex- 
periment with different values when 
you enter or edit a list. If you want 
the timer to use a different default 



Correctly spelled words 
are rewarded with a brief 
ever-changing tune. 
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value, put it in line 5550. If you 
change line 5550, remember to SAVE 
the program to make the change per- 
manent. 

Lines 5860-5870 contain a speedy 
machine language "memory move" 
routine, a modified version of a USR 
routine from Antic Tech Tips (Janu- 
ary 1985, page 64). Here, I use it to 
copy the character set from ROM to 
RAM, where it is redefined at line 
5900. 

Lines 4500-5020: This routine 
reads and displays the disk menu. See 
Antic Tech Tips, July 1986, page 87. 

The main menu, as well as word 
lists, are displayed in the largest 
graphics mode possible. The program 
uses Graphics 2 if the list is 10 words 
or less and Graphics 1 if it is 20 or less. 
Larger lists use Graphics 0. Lines 4600 
and 3130 do this with a little Boolean 
math. In one line, this routine does 
the same work as three or four lines 
of IF-THEN statements. (See Antic, 
August 1984, pages 48-52.) 




HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call Toll Free: 
(800) 347-6969 

Write: 

Antic Customer Service 
P.O. Box 1919 
Marion, OH 43306 
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Line 3230-3360. The main loop of 
the program is short, but uses subrou- 
tines extensively. And many of these 
subroutines call other subroutines. 
The result is a compact, easy-to-type 
program. 

Within this loop, the matrix 
TRACK(X,X) keeps track of the status 
of the words in your list. It has two 
rows. Row (0,X) contains a random 
series of numbers. Each number cor- 
responds to a word in the spelling list. 
The program uses this information to 
build its random list of words. 

Row (1,X) records how many more 
times a misspelled word must be 
repeated. TRACK(1,0) is a flag which 
directs the main loop to the proper 
combination of subroutines for either 
the basic drill or the misspelled drill. 

Lines 110-140. The first subroutine 
is a timer. It is short, clean and ac- 
curate. Probably most every other 
programmer knows about it. But I just 
recently stumbled upon it in a article 
I read but forgot years ago (Antic, 
March 1984, pages 19-21). If you're 
not familiar with Atari's built-in count- 
down timers, take a second to check 
them out. 

A countdown timer is a system 
timer that counts backwards and uses 
jiffies (60 jiffies = one second) instead 
of seconds. This program uses 
CDTMV3, system timer 3- Here's how 
to use countdown timers: 

1. Determine the length of time you 
need to monitor, and convert this 
value into jiffies. Five seconds, for ex- 
ample, is equal to 300 jiffies. 

2. Separate this value into low-bytes 
and high-bytes. The low and high- 
byte values of 300, for example, are 
44 and 1. 

3. Temporarily turn off the clock 
by placing a 1 (or any non-zero value) 
into CRITIC, the critical I/O region 
flag (memory location 66, $42). 

4. Set the timer by placing your low 
and high-byte values into the count- 
down timer register. In this example, 
we're using countdown timer 3, 
CDTMV3, which is accessed through 
memory locations 540 and 541 



(#021C and $021D). 

5 . POKE a zero into CRITIC to turn 
the clock back on and start counting. 

6. Monitor countdown timer flag 3, 
CDTMF3, memory location 554 
($022A). When PEEK(554) = 1, time is 
up! See line 3880 where the program 



You easily 
create your 
own lists of 
hard-to-spell 
words. 



is waiting for either a key to be 
pressed or the timer to run out before 
it moves on. 

Here's one last item you may wish 
to customize. I hate pressing [RE- 
TURN] if it is not absolutely necessary. 
This program was designed with that 
bias in mind. However this poses a 
problem when you could choose to 
enter a 1 or 2 digit number. This hap- 
pens in the Edit section of the pro- 
gram when you could choose to edit 
word 1 or word 15. 

Problem: How is the program go- 
ing to know when you are through 
if you don't press [RETURN]? Solu- 
tion: set a brief time limit for enter- 
ing the second digit. Line 3870 does 
this: SEC = 0.5:GOSUB 110 sets the 
timer for half a second. If this is too 
short, you can increase the 0.5 to a 
larger number. Again, remember to 
SAVE the program if you want to make 
the changes permanent. A 



Andy Barton has been a frequent Antic 
contributor since 1984. To his credit are 
such programs as Son Of InfoBits and 
TYPO II, Antic's type-in listing proof- 
reader. TYPO II has appeared in eveiy 
issue since January 1985. 

Listing on page 34 
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TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [3] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [ Q|] or [ A ] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0]. 



NORMAL VIDEO 



FOR 
THIS 


TYPE 
THIS 


FOR TYPE 
THIS THIS 


Rpl PTRI 
LZJ v_v l n L 


i 


ffi PTDI C 
i» o 1 HL o 


*mj \j \ ni_ 


A 
M 


SI PTRI T 

HB L/ 1 nL 1 


fj CTRL 


B 


a C,TR\ I 1 


ffl CTRL 


C 


D CTRL V 


tU U 1 ML 


u 


W CTRL W 


ffl CTRL 


E 


ffl CTRL X 


0 CTRL 


F 


B CTRL Y 


S CTRL 


G 


ffl CTRL Z 


IJ CTRL 


H 


H ESC ESC 


GJ CTRL 


I 


EE ESC CTRL - 


B CTRL 


J 


ffl ESC CTRL - 


13 CTRL 


K 


ffl ESC CTRL + 


B CTRL 


L 


ffl ESC CTRL * 


13 CTRL 


M 


ffl CTRL . 


□ CTRL 


N 


ffl CTRL ; 


B CTRL 


0 


ffl SHIFT = 


ffl CTRL 


P 


IS ESC SHIFT 


ffl CTRL 


Q 


CLEAR 


H CTRL 


R 


31 ESC DELETE 
IE ESC TAB 



INVERSE VIDEO 



FOR 
THIS 



TYPE 
THIS 



□ ESC 

SHIFT 
DELETE 

□ ESC 
SHIFT 

INSERT 

□ ESC 
CTRL 

TAB 

□ ESC 
SHIFT 

TAB 

□ A CTRL . 

□ A CTRL ; 
O A SHI FT = 

□ ESC CTRL 2 

□ ESC 
CTRL 

DELETE 
D ESC 
CTRL 
INSERT 



TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST "D:FILENAME",0,31999, then [RETURN], then NEW, then ENTER "D: FILENAME", 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



WB 
UM 

H5 

BN 

YC 

EM 
H5 

XH 



TH 
MF 



32088 REM TYPO II BY ANDY BARTON 

32818 REM UER. 1.0 FOR ANTIC MAGAZINE 

32828 CLR « DIM LINES C120) '• CLOSE »2 : CL0 
5E »3 

32838 OPEN »2 , 4 , 8 , "E" : OPEN »3,5,8,"E" 

32848 ? "is" : POSITION 11,1:? "DBymBHHB" 

32858 TRAP 32848 : POSITION 2,3:? "Type 
in a prograw line" 

32868 POSITION 1,4:? " ":INPUT »2;LINE 
S.'IF LINE$ = "" THEN POSITION 2,4:LIST B 
:G0T0 32868 

32878 IF LINES ci, D =•■*•• THEN B = UAL CLIN 
E$ C2, LEN (LINES))) : POSITION 2,4:LI5T B: 
GOTO 32868 

32888 POSITION 2,18:? "C0NT" 

32898 B=UAL CLINES) : POSITION 1,3:? " 



NY 
CN 
ET 

CE 
OR 



UU 

14 J 
JU 
EH 
BH 
HB 
IE 

UG 



32188 POKE 842,13:ST0P 
32118 POKE 842,12 

32128 ? "is" : POSITION 11,1:? "■OQQ[i»U»IH 
":P05ITI0N 2,15:LI5T B 
32138 C=8:AN5=C 

32140 POSITION 2,16:INPUT »3;LINE$:IF 
LINES="" THEN ? "LINE ";B;" DELETED" : G 
0T0 32858 

32150 FOR D=l TO LEN cLINES) : C=C+1 I AN5= 

AN5+ (C*A5C < LINES CD, D>)) : NE X T D 

32160 C0DE=INT cAN5'676> 

32170 C0DE=AN5- (C0DE«676> 

3218 0 HC0DE=INT (CODE'26) 

32190 LC0DE = C0DE- cHCQDE*26> +65 

32200 HC0DE=HC0DE+65 

32210 POSITION 0,16:? CHRS cHCODE) ; CHRS 
CLCODE) 

32220 POSITION 2,13:? "If CODE does no 
t natch press ■fflSflmSGM and edit line a 
boue • " : GOTO 32050 
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YOU WONT LOSE YOUR SHIRT TO THE 8-BIT CROUPIER 

ROULETTE, ATARI STYLE 



Article on page 18 



LISTING 1 



Don't type the 
TYPO II Codes! 



2 REM ROULETTE 
4 REM BY MICHAEL PEMBERTON 
6 REM c C )1988, ANTIC PUBLISHING 
18 GRAPHICS 2:? »6 : ? «6 : ? »6 * ? «6 ; " 

ROULETTE":? :? s? *6 ; " HE": 
? t*6; "Michael aU penberton" 
28 ? " One Monent Please"!? 

Screen Will Go Blank For 18 Seconds" 
188 DIM CQLRSC36> ,STRc38> ,5TREETC12> ,L 
N6C1H , BET$c378> , SQREC22* ,ft«ci) , SPLIT c 
58) * COL c3) , WHEEL c38* 

118 GRIDFIX=4118 : CHECKC A5H=4218 » PL ACEB 
ET=4318:ZER0=4478 

128 COLR$="RBRBRBRBRBBRBRBRBRRBRBRBRBR 
BBRBRBRBR" 

138 REM BETTING MATRIX 

148 BETSci,?4* ="HHH' eqfrsshhti iu J Jvkkw 
1 ixrmynnzooafippBffl>:>'.S!ffl**0-a8nE13C]B6BB9fiaH<ffl 
ffl?BBBBfflE ! ! H$$d" 

141 BETS c?5 , 148J ="H>c> f .il JfflLaNBPPORRQTTBU 

uaxxazzHNNH' v ' v afflsfflHaafflUJffl,a/aa2aa5fflijri8§iiii 

;fflffl>fflfflABBffiD G**«c " 

142 BETS ci49,222>="»&&IWIHK[EMROOaQQe)550 

UUBWWGY YB C cm 1 B Hffl&&fflLH C5I + KI . klBinn4**7* 

* : L)lJ=I]Iie6BBBCfflfflFXXb" 

14 3 BETS C223, 296* =■•(«»» • eqfrsshhtiiuJJv 
kK w l 1 xmm y n n z o oijp p HfflBfflil[jail[M[l[lLlHBBBBEBB 
BQBBHXXXXXXXXXXXH" 

144 BETS C297, 378* ="HffiSHBiHHHHHSiniinflH(l(ei) 

liaiiieHHEisaiiinisHaHiiiciiiHifisannnnnnnnBioBsnoiHB 

OOQQBIBBBBflBQBCJOHBI • • 

145 BETSC228,228>=CHRSC341 :BETSc221,22 
1> =CHRSC34> :FOR X = 285 TO 295 : BET* cX , X) 
=CHR*C155> « NEXT X 

146 FOR 1 = 1 TO 38 s READ X : WHEEL Cll =X i NE 
XT I 

158 REM CLEAR ARRAYS 
168 GOSUB 4478 
388 REM COLOR GAMEBOARD 
385 POKE 559,8 

318 FOR 1=8 TO 3:P0KE 53256+1 , 3 : NEXT I 
! POKE 53268, 1:I=PEEKC186J :I=I-8»P0KE 1 
86,1 

328 POKE 623,HF0R J = 8 TO 3 1 POKE 764 + J 
,54'NEXT J: POKE 54279, I « PMMEM=I*256 
358 FOR J = PMMEM TO PMMEM+2847 * POKE J, 8 
* NEXT J 

378 FOR J=PMMEM+1861 TO PMMEM+1874 i POK 
E J,287:P0KE J+16,48:P0KE J+32,284:P0K 
E J+256,143*P0KE J+272 , 112 : NEXT J 
388 FOR J=PMMEM+1349 TO PMMEM+1362 i POK 
E J,15:P0KE J+224 , 199 : POKE J*248,56:P0 
KE J+256,199:NEXT J 

398 FOR J=PMMEM+1829 TO PMMEM+1842 » POK 
E J,227:P0KE J+16,28«P0KE J+32,3:NEXT 
J 

488 FOR J=PMMEM+885 TO PMMEM+818 * POKE 
J,3:P0KE J+32,3:NEXT J 

418 GRAPHICS 8:P0KE 718,196'POKE 559,6 
2 

428 POKE 53277,3 

438 POKE 53248, 78 : POKE 53249 , 182 i POKE 
53258, 134 : POKE 53251 , 166 i POKE 53252,19 
8 

448 REM GAME SETUP 
458 CA5H=588:0LDN0=8 
468 HP05=2:UP0S=8 
588 GOSUB 5818 

518 POSITION 2,12:? "CASH AU AIL ABLE : $ 
";CA5H 

TX 988 REM CURSOR MOUEMENT 
TM 1888 POSITION HP05+1,UP05: 
QW 1818 IF STICK€8s=14 THEN ? 
POS-1 

OD 1828 IF STICKC8J=13 THEN ? "ffi";:UPOS=U 
P05 + 1 



MU 
RR 
QU 

IL 



QP 

WS 



UU 

EC 

sa 

JU 



XQ 



AS 



XT 



RW 



FU 



MS 

SA 
XK 
AY 
LU 
QH 



RC 
FH 
HQ 



YO 



KN 



RU 

UU 

UJ 
GP 



NX 
XI 
JR 
5R 
WG 



•BB"; : UPOS = U 



TA 

FA 

DI 

NJ 

UW 

XM 

XX 
JQ 

UY 
NW 
XH 
UU 

KU 

FI 
KD 
IU 
PT 
NR 
YC 
XA 
KJ 

FJ 
HS 
IM 



HA 



OG 

SZ 
OZ 
UH 

RG 
AC 
GN 
GN 

FG 

MI 
DQ 

AS 
BH 

YM 

FZ 

UL 

BA 
KU 



AR 

IZ 

PO 
MO 

DK 

BD 



:HP05=HP 



HPOS=H 



1838 IF 5TICKc8>=7 THEN ? "ffl"; 
05 + 1 

1848 IF STICKC8J=11 THEN ? "ffl" 
P05-1 

1845 IF UP0S<6 THEN UP05=9 « POSITION HP 

OS, 8 s ? " H0 " » 

1847 IF UP05>9 THEN UP0S=8 : POSITION HP 
05,1:? "BB" ; 

1848 IF HP0S>38 THEN HP05 = 2 * POSITION 3 
,UP05:? "ffl"; 

1849 IF HP05<2 THEN HP0S=38 ' POSITION 3 
7,UP05:? "ffl"; 

1858 FOR 1=1 TO 5 : K=RND <8* : NEXT I 
1868 IF STRIGC8>=8 THEN X=PEEKc93»»? 
»"; : GOTO 1888 

1865 IF PEEKC53279>=6 THEN 2818 

1878 GOTO 1818 

1875 REM INTERPRET BETS 

1888 I=UP0S»37+HP0S-1 : BET=A5C CBET* cl , I 

> 3 

1885 IF BET=8 THEN ? "E" » GOSUB 4118:? 

"ffl"; :GOTO 1818 

1898 IF BET<39 THEN 1288 

1188 IF BET=39 THEN 1268 

1118 IF BET>39 AND BET<98 THEN 1318 

1128 IF BET>97 AND BET<181 THEN 1418 

1138 IF BET>188 AND BET<113 THEN 1448 

1148 IF BET>112 AND BEK125 THEN 1488 

1158 IF BET>124 AND BET<147 THEN 1528 

1168 BET=BET-146 : ON BET GOTO 1558,1568 

,1578,1588,1598,1688,1618,1628,1638 

1196 REM RECORD UARIOUS BETS 

1288 REM STRAIGHT BET 

1285 IF BET=37 THEN POSITION 2,15:? "□ 
□BET ON 8 CY'N»"; :GOSUB 4318:G0T0 1248 

1286 IF BET=38 THEN POSITION 2,15:? "□ 
□BET ON 88 CY'NI"; : GOSUB 4318:G0T0 124 
8 

1218 POSITION 2,15:? "□□BET ON " ; BET ; " 

cY'N>"; :GOSUB 4318 
1248 5TRCB£T3=STRCBET>+AMT:G0T0 1888 
1258 REM 5 LINE BET 

1268 POSITION 2,15:? "□□LINE BET C5> c 

Y'N»"; : GOSUB 4318 

1298 LN5=LN5+AMT : GOTO 1888 

1388 REM SPLIT BET 

1318 POSITION 2,15:BET=BET-39 

1328 IF BET<34 THEN ? "QDSPLIT BET ON 

";BET;",";BET+3;" cY'N>";:GOTO 1368 

1338 IF BET=58 THEN ? "DDSPLIT BET ON 

8,88 CY'N>";:G0T0 1368 

1348 J=BET-33: J= J+INT c c J - 1> /2> 

1358 ? "□□SPLIT BET ON " ; J ; " , " ; J+l ; " c 

Y'N>"; 

1368 GOSUB 4318 

1398 SPLITCBET>=SPLITCBET1+AMT:G0T0 18 
88 

1488 REM COLUMN BET 

1418 POSITION 2,15:? "CUQBET ON COLUMN 

";BET-97;" cY^N) ";: GOSUB 4318 

1428 COL CBET-97»=C0L CBET - 97> + AMT « GOTO 

1888 

1438 REM STREET BET 

1448 BET=BET-188 : POSITION 2,15:? "DDBE 
T ON STREET " ; BET+2*BET-2 ; " , " ; BET + 2*BE 
T-l; ", "; BET+2*BET; " (Y/N) "; 
1458 GOSUB 4318 

1468 STREET CBET) = STREET cBETi + AMT : GOTO 
1886 

1478 REM LINE SIX BET 

1488 BET = BET - 112 : J = BET+ cBET-l**2 : POSIT 
ION 2,15 

1485 ? "□□LINE BET ON " ; J ; " , " ; J+l ; " , " ; 
J+2; ", "; J+3; ", "; J+4; ", "; J+5; " cY'N> "; 
1498 GOSUB 4318 
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1568 LN6CBET)=LN6CBET>+AMT:G0T0 1668 
1518 REM SQUARE BET 

1528 BET=BET-124:J=BET+INTccBET-l*'2> » 
POSITION 2,15:? "DQBET ON SQUARE " ; J ; " 
# "j J+l; J+3; "i J+4i cY'N) "; 
1538 G05UB 4318 

1548 SQREcBET>=SQREcBET>+AMT:GOTO 1886 

1558 POSITION 2,15:? "□□BET ON 19 36 c 
Y'N* " ; : G05UB 4318 : HI=HI+AMT : GOTO 1666 
1568 POSITION 2,15:? "DDBET ON 1-18 cY 
/N3";:G05UB 4310 : LO=LO+AMT : GOTO 1868 
1578 POSITION 2,15:? ••□□BET ON ODD NUN 
BERS c Y'N> " ; : GOSUB 4310 : ODD = ODD + AMT : GO 
TO 1886 

1588 POSITION 2,15:? ••□□BET ON EUEN NU 
MBER5 CY'N* ; : GOSUB 4310 : EUEN=EUEN+AMT 
:G0TO 1888 
1598 POSITION 2,15: 
BERS CY'N)"J 
TO 1668 

1686 POSITION 2,15:? ••□□BET ON BLACK N 
UMBERS CY'N>"; :GOSUB 4310 : BLACK=BLACK+ 
AMT : GOTO 1688 

1618 POSITION 2,15:? ••□□BET ON 1ST DOZ 
GOSUB 4310 : DZN1=DZN1+AMT : GO 



? ••□□BET ON RED NUM 
'GOSUB 4310 : RED=RED+AMT : GO 



EN cY'N* 
TO 1688 
1628 POSITION 2,15:? 



•□□BET ON 2ND DOZ 



EN CY'N>"; :GOSUB 4 318 : DZN2=DZN2+AMT : GO 
TO 1688 

1638 POSITION 2,15:? ••□□BET ON 3RD DOZ 
EN CY'N)"; :GOSUB 4310 i DZN3=DZN3+ AMT : GO 
TO 1666 

2806 REM SPIN THE WHEEL 

2818 POSITION 2,12:? "□□□□□□";: POKE 75 
2,1 

2828 X=INTC288*RNDC8>> :IF X<76 OR X>19 
6 THEN 2828 

2822 ? "WINNING NUMBER IS * "J 

2824 FOR 1=8 TO X-l * P05ITI0N 21,12:J=c 

COLDNO + I> -38*INT c cOLDNO+I> ' 3 83 > + 1 : ? 

ISIS" ; 

2826'lF WHEELCJJ=37 THEN ? ••8" : GOTO 28 
32 

2828 IF WHEELCJ}=38 THEN ? "68":G0T0 2 
032 

2638 ? WHEELCJJ 

2832 FOR DEL A Y=l TO 5'NEXT DELAY : NEXT 
I 

2848 NUM=WHEEL cjj : OLDNO=J : POKE 752,8 
3888 REM CALCULATE WINNINGS 
3885 POSITION 2,14 
3818 REM STRAIGHTS 

3828 IF STRCNUM) THEN WIN=WIN+35*STR cN 
UMJ :CASH=CA5H+STRCNUM> :? "WIN STRAIGHT 

BET : "; 35*5TR cNUM» 
3836 REM FIUE LINE 

3848 IF LN5 AND CNUM<4 OR NUM>36> THEN 
UIN=UIN+6*LN5:CA5H=CA5H+LN5:? "WIN LI 
NE BET C5> :";6*LN5 
3858 REM SPLITS 
3866 FOR 1=1 TO 33 

3062 IF NOT CSPLITCD AND CNUM=I OR N 
UM=I+3>> THEN 3865 

3063 WIN=WIN+17*SPLIT (D i C ASH = C A5H + SPL 
ITCIJ:? "WIN SPLIT BET « " ; 17*5PLIT (D 
3065 NEXT I 

3067 FOR 1=34 TO 57 : J=I - 33 : J= J+INT c c J - 
1>'2> 

3070 IF NOT CSPLITCD AND cNUM=J OR N 
UM=J+1>> THEN 3072 

3071 WIN=WIN+17*5PLITCI> : C A5H=C ASH+5PL 
ITcli:? "WIN SPLIT BET : " ; 1 7*5 P LIT cl J 

3072 NEXT I 

3075 IF NOT CSPLITC58) AND CNUM=37 OR 

NUM=38>> THEN 3090 
3077 WIN=WIN+17*SPLITC58» : CA5H=CASH+5P 
LITC58>:? "WIN SPLIT : " ; 17*5PLIT C58) 
3080 REM DROP OUT 8 AND 88 
3090 IF NUM>36 THEN 3410 
3166 REM COLUMNS 

3118 IF INTCNUM'3>=NUM'3 AND COL c3> TH 
EN WIN=WIN+2*COL c3> : C ASH=C ASH+COL c3> i? 

"WIN COLUMN 3 BET : " ; 2*C0L c3* 
3128 IF INTccNUM+l>'3>=cNUM+l>'3 AND C 
0LC2> THEN WIN=WIN+2*C0L C2> : C ASH=C ASH* 
C0LC2>:? "WIN COLUMN 2 BET : " ; 2**COL c2* 
3138 IF INTccNUM*2»'3*=cNUM+2>'3 AND C 
OLC11 THEN WIN=WIN+2*C0L CD :CASH=CASH+ 
COLcin? "WIN COLUMN 1 BET : " ; 2*C0L CD 
3148 REM STREETS 
3158 STCNT=NUM:I=8 



KI 

RU 

ZK 



DS 
DZ 
MZ 



FM 
GM 

FK 
UI 
DE 



FQ 
KC 
MG 



WL 

BQ 

CX 



IM 



MX 
DN 



FK 



LO 
LX 



EM 



PY 



EA 
PO 
SW 
ML 

BM 

KB 
OF 

DO 

RH 

RS 
NJ 

XJ 
NJ 

ON 
GN 

AN 

AP 
MX 
QO 

WF 

SI 

ZZ 
AU 
UJ 
CU 



FE 
UU 
AI 
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3166 5TCNT=5TCNT-3:I=I+l:IF 5TCNTC1 TH 
EN 3188 

3178 GOTO 3168 

3186 IF STREET CD THEN WIN = WIN + 11*5TRE 
ETCIJ :CA5H=CASH+5TREETCI> :? "WIN 5TREE 
T BET:";ll*5TREETcli 
3190 REM 5IX LINE 
3288 FOR J=l TO 11 

3218 IF LN6CJ) AND cl=J OR I=J+1> THEN 

WIN = WIN + 5*LN6 cj> : C ASH = C A5H + LN6 C J* :? 
WIN LINE BET:";5*LN6CJ> 
3228 NEXT J 
3236 REM SQUARES 
3248 FOR 1=1 TO 22 
3258 SQ = INT c cl-U /2J 

3268 IF SQRECH AND cNUM=I+5Q OR NUM=I 

+5Q+1 OR NUM=I+5Q+3 OR NUM=I+5Q+4» THE 

N GOSUB 4438 

3278 NEXT I 

3286 REM HIGH'LOW 

3298 IF HI AND NUM>18 AND NUM<37 THEN 
WIN=WIN+HI : CASH=CASH+HI : ? "WIN 19-36 B 
ET : "; HI 

3388 IF LO AND NUM<19 THEN WIN=WIN+LO : 
CA5H=CASH+L0 : ? "WIN 1-18 BET:";LO 
3318 REM ODD/ EUEN 

3326 IF ODD AND INT CN0M'2> < NUM'2 THEN 
WIN=WIN+ODD : C ASH=C A5H+0DD : ? "WIN ODD B 
ET : "; ODD 

3336 IF EUEN AND INT CNUM'2> =NUM'2 THEN 
WIN=WIN+EUEN:CASH=CASH+EUEN:? "WIN EU 
EN BET:";EUEN 
3346 REM BLACK' RED 

3358 IF RED AND C0LR$cNUM,NUM3="R" THE 
N WIN=WIN+RED:CA5H=CASH+RED:? "WIN RED 
BET : "; RED 

3366 IF BLACK AND COLR$cNUM,NUM)="B" T 
HEN WIN=WIN+BLACK:CA5H=CA5H+BLACK:? "W 
IN BLACK BET : " ; BLACK 
3376 REM DOZENS 

3388 IF DZN1 AND NUM<13 THEN WIN=WIN+2 
*DZN1 : CASH = CASH + DZN1 : ? "WIN 1ST DOZEN 
BET : ";2*DZN1 

3398 IF DZN2 AND NUM > 11 AND NUM<25 THE 
N WIN=WIN+2*DZN2:CA5H=CA5H+DZN2:? "WIN 

2ND DOZEN BET : " ; 2*DZN2 
3468 IF DZN3 AND NUM>24 THEN UIN=WIN+2 
*DZN3:CASH=CASH+DZN3'? "WIN 3RD DOZEN 
BET:";2*DZN3 
3418 GOSUB 4478 
3586 REM DISPLAY WINNINGS 
3518 ? "CA5H="; CASH; " WINNINGS=" ; WIN 
3528 CASH=CASH+WIN:WIN=8:IF CASH=6 THE 
N 4488 

3538 ? "PRESS RETURN TO CONTINUE":? "0 

R ENTER ' Q ' TO QUIT";:INPUT A$ 

3548 IF A*<>"Q" THEN 568 

3558 IF CASH>568 THEN ? :? "ramrcifflmmnmnm 

OOGQEJH. YOU DDfflCB *" i CASH - 508 « END 

3568 IF C ASH < 588 THEN ? >? "BrDtflfflH. YOU 

HDBD *";588-CASH» END 
3578 ? '? "QiimniQOianaBIMZl . IT COULD BE 

HORSE. 'MEND 
4188 REM GRIDFIX SUBROUTINE 
4118 IF X>64 AND X<91 THEN X=X-64'GQT0 

4138 

4128 IF X<64 THEN X=X+32 

4138 POSITION HP0S,UP05:? CHR*CX>;'RET 
URN 

4288 REM CHECK CASH SUBROUTINE 

4218 IF CASH - AMT < 8 THEN ? "SNOT ENOUGH 

MONEY":GOSUB 4118'GOTO 4238 
4228 CA5H=CA5HAMT : POSITION 2,12:? "CA 
SH AUAILABLE: % ffifflfflfflffi" ; CASH 

4238 RETURN 

4386 REM PLACE BET SUBROUTINE 
4385 TRAP 4528 

4318 INPUT A$:IF A*<>"Y" THEN GOSUB 41 
18:? "£";*GOTO 1818 

4328 ? "AMOUNT"; : INPUT AMT : IF AMT=0 TH 
EN GOSUB 4118:? "ffl";:GOTO 1818 
4338 GOSUB 4218 
4348 RETURN 
4488 REM GONE BROKE 
4418 ? "SORRY, YOU'RE BROKE":? 
GAIN CY'N>"; :INPUT A«:IF A«="Y" 
48 

4428 END 

4438 REM SQUARE WIN SUBROUTINE 

4448 WIN=WIN+8*S0RE <I> : C ASH=C A5H+S0RE c 
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•[BTRY A 
THEN 4 



AZ 
BY 
QU 



UU 



ax 
am 

DK 
JD 
QI 
BL 



cn 

AH 
MB 
NU 

NA 

FA 
OT 

NX 



Ii :? "WIN SQUARE BET « " ; 8*SQRE cl> 

4458 RETURN 

4468 REM ZERO ALL BETS 

4478 HI=8 : L0=8 : 0DD=8 : EUEN=8 : BLACK=0 : RE 
0 = 8tDZNl = 8tDZN2 = 8:DZN3 = 8:C0L ci>=0 : COLc 
21 =8 : COL C3>=8 i LN5 = 8 

4488 FOR 1=1 TO 38 : STR cli =0 z NEXT I : FOR 

1=1 TO 12:5TREETCIJ=8»NEXT I:FOR 1=1 
TO ll r :LN6cli=8:NEXT I 

4498 FOR 1=1 TO 22 : SORE (D =8 : NEXT I ' FO 

R 1=1 TO 58tSPLITclJ=8:NEXT I 

4588 RETURN 

4518 REM INPUT ERROR 

4528 POP :GOSUB 4118:G0T0 1880 

5888 REM DRAM BOARD 

5818 ? "B" : POSITION 2,8:? • • BHBfflHfflHfflHfflB 

2J115iI118[I]21[I]24[r27[I13e[I133[I]36[IT' 

5828 POSITION 2,2 »? "X OOBBffiBffiBffiBBffiBBSB 

BffiBBSBBffiBBffiBBSBBSBBffi BBBffl 2X5X8X11X14X1 

71128[I)23[I]26I]29[1]32[I135!I]" 

5838 POSITION 2,4:? ■ • II 8 8 QBBffiBfflBfflBBffiBBffiB 



6X19X22X25X28X31X34I]' 1 
5848 POSITION 2,6:? 



D 12 



X 3RD 12 



5858 POSITION 2,8:? 



ajiro4H)7[Diemi3H]i 



X 1ST 12 X 2N 

XBBBBfflBBBSBBBB 
X1-18XEUNX RED 



XBLACKX ODD X19-36X" 
5868 POSITION 2,18:? " 

6138 REM WHEEL CONFIGURATION 

6148 DATA 38,27,18,25,29,12,8,19,31,18 

,6,21,33,16,4,23,35,14,2,37,28,9,26,38 

6158 DATA 11,7,28,32,17,5,22,34,15,3,2 

4,36,13,1 



LISTING 2 



QP 

IL 
QH 
OD 
EU 

IJ 
PR 

WO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LW 



18 REM 
28 REM 
38 REM 
35 REM 
48 REM 
OTHER 
58 REM 
68 DIM 
EEKC18 
70 FN$ 
AME OF 
88 ? 
5 

98 IF 
58) TH 
188 IF 
118 PO 
TIC'S 
128 ? 
138 PO 
148 ? 
se sta 
158 RE 
C = l 



ROULETTE, LISTING 2 
BY MICHAEL PEMBERTON 
cc>1988, ANTIC PUBLISHING 
CREATES LINES 148-144 
CLINES 18-258 MAY BE USED WITH 
BASIC LOADERS IN THIS ISSUE. 
CHANGE LINE 78 AS NECESSARY.) 
FNSC28) ,TEMP$C28) , AR*c93> :DPL=P 
592) :POKE 18592,255 
••D: LINES. L5T-: REM THIS IS THE N 
THE DISK FILE TO BE CREATED 
Hfflisk or Bassette?"; : POKE 764,25 

NOT CPEEKC764)=18 OR PEEKc764>= 
EN 98 

PEEKC764>=18 THEN FN$="C:" 
KE 764, 255 : GRAPHICS 8:? - AN 
GENERIC BASIC LOADER" 
,"BY CHARLES JACKSON" 
KE 10592, DPL:TRAP 200 
:? :? "Creating ";FN$:? "...plea 
nd by." 

STORE : READ LN : LM = LN : DIM A* cLN) : 



BQ 

YC 

DM 
BK 
MM 

CM 

UU 

AR 
PU 
AL 

IK 
WO 

PN 

JM 
GH 
PU 
LG 
LS 
IP 
UZ 
MR 
EC 
HQ 
DD 
ZN 
CN 
AY 



160 AR$="":READ AR$ 

170 FOR X=l TO LENCAR5) STEP 3:P0KE 75 
2,255 

188 LM=LM-1 : POSITION 18,18:? " (Countdo 
wn. . .T-";INTcLM^18);") 

198 A$cC,C>=CHR*cUALcAR$cX,X + 2>>> «C = C + 
l:NEXT X:GOTO 168 

288 IF PEEKC195>=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " s END 

218 IF C<LN+1 THEN ? :? "QTOO FEU DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
228 IF FN$="C:" THEN ? :? " Prepare ca 
ssette, press (RETURN) 11 
238 OPEN »1,8,0,FNS 

248 POKE 766,1:? ttl;A*;:POKE 766,8 

258 CLOSE **1 : GRAPHICS 8:? ••■HfflfflaaBQafflB 

■t 

1888 DATA 471 

1818 DATA 6498528488328668698848368488 

49844855852841861834888888888839101113 

182114183115104184116185185 

1820 DATA 1171861861181871871191881881 

26109109121118110122111111123112112800 

000037037000003042006045009 

1030 DATA 0480128128516158158548188188 

57621621868824624663627827866836836869 

833833872836836186634155849 

1846 DATA 8520490320660698848368488558 

53844849852856641861634866837837600074 

126076128078130080080132082 

1856 DATA 8821346848841368868861388888 

8814 8698698142692892144894894146696896 

8688 88897897806882841685844 

1866 DATA 8886478116118588148148538178 

1785 6828826859823623862826826865829629 

6686 32832871835835899834155 

1678 DATA 6498528588328668696846368486 

4 985265 784465865685664186183488663 6638 

0086 7312587512 7877129879879 

1686 DATA 1316818811338838831356858851 

3788 7887139889889141891891143893893145 

6958 9566888663 8638686881848 

1696 DATA 6648436876466188188498138138 

5281681685581961965862262286182582 5864 

828628667631831878688688 898 

1188 DATA 8341558498528516326666698848 

3664 8850658851644656857854641861634606 

6866 88639181113182114183115 

1118 DATA 1841841161851651171861861181 

8716 7119188188126189189121116118122111 

11112311211286 6886668886 888 

1128 DATA 1531531531531531531531538881 

5415415415415415415415415415415468 0088 

8888 8668868888 8888888688 888 

1136 DATA 8888886341558498526528326666 

69884836646856657855644651855046841861 

8348 88888688888688888888688 

1148 DATA 8888888688888888868868866668 

6688 866888888888868888888686888866 8668 

888688888888888888860000000 

1150 DATA 0008861481481481488661581581 

58888151151151151151868152152152152152 

888149149149149149888147147 

1168 DATA 147147147868834155 
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Don't type the 
TYPO II Codes! 



HT 
PL 
OR 
DN 

UG 

DN 



28 



1 REM REAL-WORLD INTERFACE 

2 REM BY JOHN U. LITTLE 

3 REM cc>1988, ANTIC PUBLISHING 

5 A888=8:REM CHANGE TO A 1 FOR PORTB 0 
N AN ATARI 486'886 

6 IF NOT CA868=8 OR A888=l> THEN ? "T 
YPING ERROR LINE 5!Q":END 

18 GRAPHICS 2 + 16:? «6 : ? »6 : ? «6 ; ■' R 
E AL" : ? «6:? »6 ; " UORLD" : ? «6 : ? «6 ; " 

INTERFACE" 



LC 

as 

KB 
GM 
XY 

NB 

GR 



12 RESTORE 7888:F0R X = 1664 TO 1761 --REA 

D BYTE : POKE X # BYTE : NEXT X : X = USR C1664) 

28 POKE 752,l:REN KILL CURSOR 

36 REM DECLARATIONS 

58 DIM YN$ C1J : LET 0N = 8:0FF = 1 

66 P0RTA=54616 i PACTL =54618 i 0RIG=PEEKc5 

4818+A8863 : C0NS0L=53279 

86 REM INITIALIZE CLOCK 

188 ? "H":P05ITI0N 4,2:? "DO YOU WISH 
TO RESET THE CLOCK" ; : YN$ = INPUT YN* 

ANTIC SOFTWARE LIBRARY 



118 IF ASCcYN$><>89 THEN IF fi5CcYN$l<> 
121 THEN 138:REM Y OR y 
128 GOTO 158 

138 IF A5CCYNS)<>78 THEN IF ASC cYN$> <> 
118 THEN 188 s REM N or n 
148 GOTO 388 

158 ? "H" : POSITION 11,2:? 

sasamsQ" * ? » 7 -? 

168 H0UR=8:NIN=8:SEC=8 

178 ? "Correct Hour C0-23* ";: TRAP 188:1 
NPUT HOUR:? 

188 ? "Correct Mi nil te M ; : TRAP 198:INPUT 
MIN:? 

198 ? "Correct Second"; : TRAP 288:INPUT 
SEC 

288 ? "REPOSITION 13,2: 
fflH[3" 

218 POSITION 9,23:? "Press @OSfflQ to co 
nti nue" 

228 POKE 18,MIN:P0KE 19,SEC:P0KE 28,8: 
POKE 289,8:P0KE 288,8:P0KE 287,H0UR:X= 
USR C1664J 

224 REM DISPLAY CLOCK 

238 POSITION 16,18:P0KE 752,1 

231 T=PEEKC2871 : IF T>9 THEN ? T;:? ":" 
; : GOTO 233 

232 ? "8"; : ? T; : ? ; 

233 T=PEEKC18J :IF T>9 THEN ? T;:? ; 

:GOTO 235 

234 ? "8"; : ? T; : ? ; 

235 T=PEEKC19> :IF T>9 THEN ? T:GOTO 24 
8 

236 ? "8"; : ? T 

248 IF PEEKCC0NS0D=7 THEN 238 
278 REM MAIN PROGRAM 

388 ? "SS":POKE 718,8:P0KE 82,l:REM SET 
UP SCREEN 

328 REM CONFIG. PORT FOR OUTPUT 

348 POKE PACTL+A888, ORIG-4 : POKE PORT A+ 

A888,255:P0KE PACTL+A880,ORIG 

368 REM GET TIMING PARAMETERS 

388 GOSUB 888 

398 IF TIMEON=0 THEN 1260 • REM MANUAL 0 

PER ATION 

488 GOSUB 1118 

483 REM START TIMING 

418 POSITION 5,23:? "Press any key to 
begin t iNinS" ; : POKE 764,255:P0KE 752,1 

411 IF PEEKc764»=255 THEN GOSUB 848:G0 
SUB 1418:G0T0 411 

412 POSITION 5,23:? 

428 REM IS CURRENT TIME BETWEEN EARLIE 

ST AND LATEST START TIMES? 

448 IF EARLYH0UR>PEEKC287> THEN G05UB 

1418-G0SUB 848:G0T0 448 

458 IF LATEH0UR>PEEKC2871 THEN 588 

468 GOSUB 848:G0SUB 1418:G0T0 448 

488 REM RELAY OPERATION LOOP 

588 LET 0N0FF=0N:SEC=5EC0N:MIN=MIN0N:H 

R=HRON:GOSUB 688 

518 LET ONOFF=0FF:SEC=SECOFF:MIN=MINOF 
F : HR=HROFF : GOSUB 688 
528 GOTO 448 

588 REM TIMING SUBROUTINE 
688 STARTMIN5=PEEKC18J : ST ARTSEC5=PEEK c 
192 : STARTH0UR = PEEKC2871 : REM GET CURREN 
T TIME 

618 POKE PORTA+A880, ONOFF : REM CLOSE OR 

OPEN RELAY 
628 REM ADJUST COUNTER IF «OF SECS TO 
COUNT + »OF SECS CURRENTLY ON CLOCK > 
59 

648 IF SEC+START5EC5>59 THEN STARTMINS 
=5TARTMIN5*l:LET ENDSEC=SEC+ST ART5ECS - 
68'GOTO 698 

658 LET ENDSEC=SEC+STARTSECS 

678 REM ADJUST COUNTER IF »0F SECS TO 

COUNT + t*OF SECS CURRENTLY ON CLOCK > 

59 

698 IF MIN+5TARTMINS>59 THEN STARTHOUR 
=STARTHOUR+l » LET ENDMIN=MIN+ START MIN5- 
68:G0T0 785 

788 LET ENDMIN=MIN+5T ARTMIN5 
785 LET ENDHOUR=HR+STARTHOUR 
718 IF ENDH0UR<24 THEN 778 

728 LET ENDH0UR=ENDH0UR-24 

729 REM WAIT FOR CURRENT HOUR TO CROSS 
MIDNIGHT AND BECOME "8". 

738 IF PEEKC287J >ENDHOUR THEN GOSUB 84 
8:GOSUB 1418:G0T0 738 



RP 

OP 

UP 
OT 

AO 

OE 

OP 
ZK 
PX 
OH 

CJ 

UN 

HX 

UT 
PW 

CB 
AH 
BG 
JB 

RE 

KN 

PJ 
CR 

OJ 
FA 

AO 
SM 
KT 

KT 

EN 

CE 



GL 

EK 

HU 

LG 
MT 

IL 

MU 

OF 
HX 

GP 
QB 
PJ 

BU 
UA 

AB 
PQ 
MR 
UN 

ZH 
OD 
KH 

UK 
PZ 
RT 

QP 
HU 

PR 



JA 



758 REM WAIT FOR HOURS, MINS, SECS TO 
COUNT DOWN 

778 GOSUB 848:IF PEEK cCONSOL* < 7 THEN 1 
418 

788 IF ENDH0UR>PEEKC287> THEN 778 

798 GOSUB 848:IF PEEK CC0N50D < 7 THEN 1 

418 

888 IF ENDMIN>PEEKC18) THEN 798 

818 GOSUB 840:IF PEEK CCONSOD < 7 THEN 1 

418 

828 IF ENDSEC>PEEKC19> THEN 818 

838 RETURN 

835 REM DISPLAY TIME 

840 POSITION 16,1 

841 T = PEEKC287J : IF T>9 THEN ? T;:? t •■ 
; : GOTO 843 

842 ? "8"; : ? T; : ? ; 

843 T = PEEKC18J : IF T>9 THEN ? T;:? " : " ; 
:GOTO 845 

844 ? "8"; : ? T; : ? ; 

845 T=PEEKC19* i IF T>9 THEN ? T:GOTO 84 

7 

846 ? "0"; : ? T 

847 RETURN 

868 REM INPUT DATA SUBROUTINES 

888 POSITION 1,6:? " 



881 POSITION 7,7:? 
SREGARD . " : ? 

882 POSITION 1,8:? 



'press raaufflsffl to di 



898 TRAP 948 

908 ? "EARLIEST HOUR TO TURN WATER ON' 
; : INPUT EARLYHOUR 
918 TRAP 930 

928 ? "LATEST HOUR TO TURN WATER ON"; 

INPUT L ATEHOUR : GOTO 988 

938 ? "□":? "S":GOTO 888 

948 EARLYH0UR=8 : LATEHOUR=24 

950 ? "H" : POSITION 1,2:? " 



960 POSITION 1,3:? "B NO EARLIEST AND 
LATEST START TIMES ■" 

970 ? " 

.. : GOTO 1010 

980 ? "H" : POSITION 1,2:? " 

: POSITION 1 

,3:? "BE A RL I EST START : "; EARLYHOUR; 
990 POSITION 20,3:? "B LATEST START:"; 
LATEHOUR;" B" 

1000 ? " 



FEBRUARY 1989 



1010 ? :? "press KumGoraaj 3 times to byp 

ASS TIMER.":? 

1020 HRON=0:MINON=0:SECON=0 

1021 TRAP 1030 

1022 ? "NUMBER OF HOURS WATER WILL BE 
ON"; 

1023 INPUT HRON 
1030 TRAP 1060 

1040 ? "NUMBER OF MINUTES WATER WILL B 
E ON"; 

1050 INPUT MINON 
1060 TRAP 1090 

1070 ? "NUMBER OF SECONDS WATER WILL B 
E ON"; 

1088 INPUT 5EC0N 

1898 TIMEON=HRON+MINON+SECQN:REM For t 
est in line 398 
1100 RETURN 

1110 HROFF=0:MINOFF=0:5ECOFF=0 

1111 TRAP 1120 

1112 ? :? "NUMBER OF HOURS WATER WILL 
BE OFF"; 

1113 INPUT HROFF 
1120 TRAP 1150 

1130 ? "NUMBER OF MINUTES WATER WILL B 

E OFF"; 

1140 INPUT MINOFF 
1150 TRAP 1180 

1160 ? "NUMBER OF SECONDS WATER WILL B 
E OFF"; 

1170 INPUT SECOFF 

1180 TIME0FF=HR0FF+MIN0FF+5EC0FF : REM F 
or test in line 1190 

1190 IF TIMEOFF = 0 THEN ? "□" ; "H" « ? "Yo 
u nust specify an 'OFF* period in o 
rder to use the tiner.":POP : GOTO 380 
1200 ? :? "fflHOOffiffl TO STOP CYCLE WITH W 

continued on next page 
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ATER ON.-:? '•BHOHHO TO STOP CYCLE WITH 

HATER OFF.'* AH 
1218 ? "BDSBQ TO RE-START PROGRAM**:? •• MF 
WITHOUT RESETTING CLOCK." LJ 
1228 RETURN 

1248 REM MANUAL ON'OFF ROUTINES 

1268 LET ONOFF=ON AL 

1278 TRAP 1278 

1288 ? :? "Do you wish to turn the wat 

er on"; YP 

1298 GOSUB 1358 

1388 TRAP 1388 AT 
1318 LET ONOFF=OFF CJ 
1328 ? "Do you wish to turn the water 
off"; 

1338 GOSUB 1358 UX 
1348 GRAPHICS 8 : END 
1358 YNS = " **:INPUT YN$ 

1368 IF ASCCYN£><>89 THEN IF A5C cYNSi < OT 
>121 THEN 1398:REM Y OR y 
1378 POKE P0RTA+A888, ONOFF 

1388 RETURN RY 
1398 IF ASCCYN$> <>78 THEN IF ASC cYNS* < 
>118 THEN POP :GOTO 65536:REM N or n . . 



.65536 IS ERROR TO TRAP 

1488 RETURN 

1485 REM EARLY EXIT 

1418 IF PEEKCC0NS0L>=3 THEN POKE PORTA 
+A888,0N:P0P POSITION 1,20:POKE 752,8 
: END 

1428 IF PEEKcC0N50Li=5 THEN POKE PORTA 
+ A888,0FF:P0P : POSITION 1,28:P0KE 752, 
8 : END 

1438 IF PEEKcCONSOLi =6 THEN POP :GOTO 
388 

1448 RETURN 

7888 DATA 184,162,6,168,139,169,7,32,9 
2, 22 8, 96, 238, 2 88, 288, 2, 238, 289, 165, 288 
,281,15,144,26,165,289 

7818 DATA 281,3,144,28,169,8,133,288,1 
33,289,165,28,281,68,144,6,169,1,13 3,2 
8,288,12,238,28,165 

7828 DATA 28,281,68,144,48,169,8,133,2 
6,238, 19, 165, 19, 281, 68, 144, 28, 169, 8, 13 
3,19,238,18,165,18 

7838 DATA 281,68,144,16,169,8,133,18,2 
38, 267, 165, 287,281, 24, 144,4, 169, 8, 133, 
287,76,98,228 
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HARD-WIRED RAY TRACING 
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18 REM HARD-HIRED RAY TRACING 

28 REM BY MICHAEL BJORKMAN 

38 REM cc>1988, ANTIC PUBLISHING 

48 BRKX= CPEEKC53279J <>3i 

1888 GOSUB 1668 

FOR SY=1 TO 191 
FOR SX=8.5 TO 318.5 STEP 2 
TRAP 1348:5XSCR=C5X-8.51/2:SYSCR= 



1818 
1626 
1838 
SY 

1848 
POKE 
1858 
1866 



PEEKc53279i=3 THEN 



POKE 559,6:IF 
559, OLDUALUE 
REM SPHERE PIXEL? 

Al= CSX-UX)*CSX-UX> + CSY-UY>*CSY-UY 

>+uz*uz 

1878 Bl = 2*c CSX-UX>*CUX-CX> ♦ cSY-UYi*cUY 
-CYi -UZ*cUZ-CZn 

1688 Cl= CUX-CX>*CUX-CX* +cUY-CYi*cUY-CY 
i + cUZ-CZi**cUZ-CZJ -R*R 

1896 ARG=B1*B1-4*A1*C1 : IF ARG<=6 THEN 
1258 

1188 REM SPHERE PIXEL 

1118 5CALEl=c-Bl+SQRcARG>>' C2*AH 

1128 DX=SCALE1*CSX-UX> : D Y=SC ALE1* C5 Y - U 

Yi :DZ = -SCALE1*UZ 

1138 RX = DX + UX-CX « RY = D Y + U Y - C Y i RZ=DZ+UZ- 



CZ 

1148 
1158 
'Ri 
1168 
1178 

1188 

1 

1196 

EMPHI 

1288 

1218 

R 

1228 

EMPHI 

1238 

1248 

1258 

1268 

1278 

1288 

EMPHI 

1298 

1388 

1318 



DDOTN- cDX*RX + DY**RY + DZ**RZi ' R 
SCALE2=ci91-CY-RYi' CD Y+2*DD0TN*RY 



IF SCALE2>=8 THEN 
REM REFLECTED RAY 



1228 

INTERSECTS 



ROOF 



SCALE2= C8-CY-RY* / cDY + 2«DD0TN*RY'R 

DHTEMP=DHROF i SMTEMPLO=SMROFLO i SMT 
=SMROFHI 

GOSUB 1420-GOTO 1338 

REM REFLECTED RAY INTERSECTS FLOO 

DHTEMP=DHFLR: 5MTEMPL0=SMFLRL0 : SMT 
=SMFLRHI 

GOSUB 1428:G0T0 1336 

REM NOT SPHERE PIXEL 

DX=SX-UX : DY=SYUY t DZ=-UZ 

IF 5Y<=H0RIZ0N THEN 1386 

A=C191-UY3^DY:REM BELOW HORIZON 

DHTEMP=DHFLR: SMTEMPL0=5MFLRL0 i SMT 

=5MFLRHI 

GOSUB 1556:G0T0 1338 
A=c8-UYi'DY:REM ABOUE HORIZON 
DHTEMP=DHROF i 5MTEMPL0=5MR0FL0 : SMT 



CA 
NS 
YD 
Y5 
DO 
LK 
MR 



HM 



ST 
FP 
CJ 

NS 



UU 

KL 
PZ 
NH 
AP 
UO 

SC 
EQ 

JY 

MB 

GO 
RP 

UC 

KT 
QH 
NP 
ZU 
UU 

SK 
EY 

AU 



EMPHI=SMROFHI 
1328 GOSUB 1558 

1338 POKE 77,8:REM KILL ATTRACT MODE 

1348 NEXT 5X 

1358 NEXT SY 

1368 REM SAUE SCREEN 

1378 L0D$C3,3>=CHR$C1D 

1388 5L0C = PEEKC88>+PEEKC89>*256 « CLOSE 
ftl:OPEN »1, 8, 6, "D : TRACE . PIC* : GOSUB 888 
8 

1396 X=U5RcADRcL0D$i ,SLOC, 76881 :PUT »1 

,PEEKC712> :FOR X=788 TO 718:PUT «1,PEE 

KCX1 : NEXT X:CLOSE «1 

1488 GRAPHICS 8:? "DONE ! " : END 

1418 REM REFLECTION ROUTINE 

1428 DRX=DX-2*DD0TN*RX'R : DRY=DY-2*DD0T 

N*RY'R : DRZ=DZ-2*DD0TN*RZ'R 

14 38 FX=CX+RX+SCALE2*DRX+FXDI5P ' FY=CY+ 

RY + 5C ALE2**DRY i FZ=CZ+RZ+5C ALE2*DRZ+FZDI 

5P 

1448 FXSCR= ccFX- INT CFX^ 318. 51*318 .51 -8 

. 51 '2 : FZSCR = 191- CFZ-INT cFZ' 191) *19H 

1456 IF FXSCR<=8 THEN FX5CR=8 

1468 IF FXSCR>=168 THEN FXSCR=166 

1478 IF FZSCR<=8 THEN FZSCR=6 

1488 IF FZSCR>=191 THEN FZSCR=191 

1498 POKE 561, DHTEMP : POKE 88 , 5MTEMPL0 : 

POKE 89,SMTEMPHI 

1588 LOCATE FXSCR , FZ5CR , B YTE 

1518 POKE 561,DHSCR:P0KE 88 , SMSCRLO I PO 

KE 89,SMSCRHI 

1528 IF YDM THEN B YTE = B YTE - 1 1 IF B YTE < = 
8 THEN B YTE=8 

1538 COLOR BYTE s PLOT SXSCR , S YSCR « FL AG = 
1 : RETURN 

1548 REM FLOOR OR CEILING ROUTINE 

1556 FX=UX+A*DX+FXDISP ■ FY=UY+A*DY i FZ=U 

Z+A*DZ+FZDISP 

1568 FXSCR= ccFX- INT CFX^ 318. 51*318. 5i -8 

. 5i '2 : FZSCR = 191- CFZ-INT cFZ / 1911 *19H 

1578 IF FX5CR<=8 THEN FXSCR=8 

1588 IF FXSCR>=168 THEN FXSCR=168 

1598 IF FZ5CR<=6 THEN FZ5CR=8 

1688 IF FZSCR>=191 THEN FZSCR=191 

1618 POKE SGI, DHTEMP : POKE 88,SMTEMPL0: 

POKE 89,SMTEMPHI 

1628 LOCATE FXSCR , FZSCR , BYTE 

1638 POKE 561, DHSCR: POKE 88 , SMSCRLO : PO 

KE 89,SMSCRHI 

1648 COLOR BYTE : PLOT SXSCR , 5 YSCR « RETUR 
N 
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1650 REM ENTER UIEUPOINT COORDINATES 
1666 G05UB 7588 : TRAP 1698 : UX=168 : U Y=96 
I UZ=-458 

1665 POSITION 8,5:? Uiewpoint Coordi 
nates POSITION 7,6:? "(Where are you 

standi ns?) " 
1678 ? :? "Input UX , U Y , UZ : : ? M 8<UX<3 
19":? ■■ 8<UY<191":? " UZ<8":G05UB 8888 

1688 INPUT UX,UY,UZ 

1698 IF UX<8 OR UX>319 OR UY<8 OR UY>1 
91 OR UZ>8 THEN ? "Coord ErrorQQ" : GOTO 
1668 

1788 REM SPHERE COORDINATES 

1785 TRAP 1748:CX=187:CY=64:CZ=95.5 

1718 GOSUB 7588 : POSITION 3,5:? "Where 

is the center of the sphere?" 

1715 POSITION 13,7:? "C CX, CY & CZ )" 

:? 

1728 INPUT CX, CY.CZ 

1738 REM CIRCLE RADIUS 

1748 R = INT CCY'2» : TRAP 1768:? "HBBffi 

Radius of the Sphere":? :? c8-" ; CY ; M J 

1758 INPUT R 

1768 TRAP 1888:IF CY-R<0 OR C Y + R > 191 T 

HEN ? "Coord ErrorQQ" : GOTO 1785 

1778 FXDI5P=0 : FZDI5P = 0 : GOSUB 7500:PO5I 

TION 8,5:? "Input FXDISP, FZDISP:":? 

1788 INPUT FXDISP, FZDISP 

1798 REM READ PIC FILE 

1800 TRAP 48888 : PICSIZE=7688 : GOSUB 218 
8 : REM INIT ML LOADER 

1818 DIM J*C18>,FILE*C18>,FNAMFLR*C18> 

, FNAMROF* C18> , MILQD* €342* 

1812 ? "HBBHBBB Use the DIMMING Feature c 

Y'N>";:INPUT J*:IF NOT CJ*="Y" OR J* = 

"tf" OR J*="n" OR J*="N") THEN 1812 

1814 YDM=8:IF J*="Y" OR J*="y" THEN YD 

M=l 

1828 ? "H FLOOR FILENAME" 

1838 GOSUB 2118 

1848 FNAMFLR*=FILE* 

1858 ? "H CEILING FILENAME" 

1868 GOSUB 2118 

1878 FNAMROF*=FILE* 

1888 REM LOAD FLOOR 

1898 POKE 186,PEEK€748l :MEMT0P=PEEKC18 
6> 

1988 GRAPHICS 15+16:G0SUB 8888:DHFLR=P 
EEKC56H 

1918 SMFLRL0=PEEKC88> : SMFLRHI=PEEK c89> 
: SMFLR=SMFLRL0+256*5MFLRHI I POKE 559, 34 



1928 CLOSE «l: 
UT *tl,MILOD*:C 
1921 OPEN «1,4 
,17*="862" THE 

1925 GOSUB 788 

1926 X=USRCADR 
OSE ni 

1938 REM LOAD 
1948 POKE 186, 
1958 GRAPHICS 
EEKC56D 
1968 SMROFLO=P 
: SMROF=SMROFLO 



1978 
UT «1 
1971 
,17J = 
1975 
1976 
OSE tt 
1988 
1998 
2000 
EEKC5 
2010 
: SM5C 

2020 
2030 
2840 
2050 
2060 
2070 
2080 
2090 
2100 



CLOSE un 
,MILOD*:C 
OPEN »1,4 
"062" THE 
GOSUB 708 
X=USRCADR 
1 

REM ESTAB 
POKE 186 
GRAPHICS 
611 

SMSCRLO=P 
R=SMSCRLO 



OPEN »1,6,8,FNAMFLR*:INP 
LOSE »1 

, 0, FNAMFLR* : IF MILOD* (15 
N 1926 

0:CLOSE «l:GOTO 1940 
CLOD $3 , SMFLR,PICSIZE> : CL 

ROOF 

MEMTOP-32 

15+16:G05UB 8888 : DHROF=P 

EEKC881 : SMR0FHI=PEEK€89i 
+256*SMR0FHI :POKE 559,34 

OPEN »1, 6, 8, FNAMROF* : INP 
LOSE ttl 

,8,FNAMR0F*:IF MIL0D*C15 
N 1976 

8:CL0SE *tl:G0TO 1990 
cLOD*> , SMR0F,PIC5IZE> : CL 

LISH PLOTTING SCREEN 
MEMTOP-64 

15+16:G0SUB 8888 : DHSCR=P 

EEKC88J : SMSCRHI=PEEKC89> 
+256*5M5CRHI I POKE 559,34 



HORIZON=UY 
REM SET COLORS 
SETCOLOR 4,8,8 
SETCOLOR 8,8,4 
SETCOLOR 1,8,8 
SETCOLOR 2,8,12 
0LDUALUE=PEEKC559> 
RETURN 

REM GET PIC FILENAME 



TD 
YU 
UI 

LK 
PD 



AK 
UM 
HN 

UJ 

AE 
ZA 
OZ 
PI 
OC 
LI 
UN 
CA 
UC 

CE 

LY 



LE 



KC 

DR 
RS 



NX 

UO 
ZM 
JK 
KG 



IW 
AU 

RS 



2110 CLOSE «l:POKE 718,8:P0KE 789,48:? 

"Insert disk into drive stl," 
2128 ? " press < return >";: INPUT J*:OPE 
N »1,6,8,"D:*.?IC" 

2138 ? "H" : TRAP 2140 : FOR N=0 TO 63:INP 

UT »1, FILE* : POSITION 2+19* c CN'2* =INT cN 

'2>i,INTcN'2> »? FILE* J : NEXT N 

2148 TRAP 2118tP0P tCLOSE tti i ? »? "Ent 

er Fi lenane"; : INPUT FILE* 

2158 IF FILE«C1,2»<>"D*" AND FILE*C1,3 

><>"DH" AND FILE*C1,3»<>"D2«" THEN J* 

=FILE*«FILE*ci,2>="D«'MFILE*c3*=J* 

2168 TRAP 2248:RETURN 

2178 REM ML SCREEN LOAD ROUTINE 

2188 DIM L0D*C28> 

2198 LOD*="haSBRffihBUShBTShBYffihBXSBS Uffl 
ffl" 

2288 RETURN 

2238 REM ERROR MESSAGE 

2248 ? "DISK ERROR": END 

7888 REM LOAD AN MI PICTURE 

7828 RESTORE 7868 

7838 FOR A=1536 TO 1556 

7848 READ B-POKE A , B 

7858 NEXT A 

7868 DATA 162,16,169,1,157,72,3,169,8, 
157, 73, 3, 32, 86,228,48, 1, 96, 184, 184, 96 

7878 milod*=" hBsasDBffiDmaDffiasaEffiasaHffian 
□ifflEJisnn sB0EanasmnoniaaBDfflH<nnfflBB" 

7888 MILOD* €55>="EamaBSHDEaiaB0OaDa BZBfflfiS 

fflaaraHaacn BaarasHann n^QmBmasHQiaiiaa 

O" 

7898 milod* cii5>="OEaxaaamBYasas sizeee^ 
□naaearai □atgeami [Samoa szamaa wiziHmaraaraHraaffi 

B" 

7188 milod* ci75> ="0HfflofleH'amao@mHmHaan 
aaamHH fflzafflnnfflBsaraanaraamaaansaHHa * * 

7118 MIL0D*c228i=CHR*€155> 

7128 MIL0D*C229> = ■ ■ ffi □ Ll@fiH R HQE3HB ffl BOffiQ P eO 

anaHeBasooaffiaoa''a[B@Dfflfflffla[Bemamanoiianane 



7138 MILOD* C29H ="SBHfflDDffiO cemaDElflaDeBa 

SBararaniHBBBHiii cneatB e Damn e HaBsraacas 1 * 

7148 REM POKE 88,ADL0:POKE 89,ADHI 

7168 A=USRcADRcMILOD*>> 

7198 CLOSE *tl'G05UB 8000:RETURN 

7508 ? "H":POSITION 32,1:? "C319,8»":P 

OSITION 38,22:? " C319 , 191J "i POSITION 1 

,22:? "C8,191*" 

7518 POSITION 1,1:? "C8,8>" 

7520 RETURN 

8808 BRK=USR c ADR C"haflaMhhDBB&iapaSSUQft" 
» ,BRKX> : RETURN : REM DISABLES BREAK WHE 
N ARG=1 



LISTING 2 



LJ 

UO 
QH 
UD 

EU 

IJ 
PR 

UO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BO 

YC 

DM 



18 REM HARD - UIRED RAY TRACING, LISTING 
2 

28 REM BY MICHAEL BJORKMAN 

38 REM cc>1988, ANTIC PUBLISHING 

35 REM CREATES LINES 2198, 7878-7188, 

7128-7138 * 8800 

40 REM CLINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY . ) 
60 DIM FN*C20> ,TEMP*C20* , AR*c93> :DPL = P 
EEKC10592> : POKE 10592,255 

70 FN*="D:LINES.LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
88 ? "Hfflisk or Cassette?" ;: POKE 764,25 
5 

98 IF NOT CPEEKC7641=18 OR PEEKc764>= 
581 THEN 98 

188 IF PEEK (7643 =18 THEN FN*="C : " 

118 POKE 764, 255 : GRAPHICS 8:? " AN 

TIC'S GENERIC BASIC LOADER" 

128 ? ,"BY CHARLES JACKSON" 

138 POKE 10592, DPL : TRAP 200 

140 ? :? :? "Creating " ; FN* : ? "...plea 

se stand by." 

158 RESTORE : READ LN : LM=LN : DIM A*cLN>: 
C = l 

168 AR*="" : READ AR* 

178 FOR X = l TO LEN CAR*) STEP 3 : POKE 75 
2,255 

188 LM=LM-1 : POSITION 18,18:? "CCountdO 
wn . . . T-"; INT cLM'18* ; "> 

continued on next page 
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190 A$cC,C:>=CHRScUALcfiR$cX,X + 2>*3 : C = C + YQ 
l'NEXT X:GOTO 168 

288 IF PEEKci95>=5 THEN ? :? *? "BTOO 

MANY DATA LINES!"*? -CANNOT CREATE FIL YO 

E ! " * END 

218 IF C<LN+1 THEN ? *? "BTOO FEW DATA 

LINES! a> >? "CANNOT CREATE FILE ! M » END MB 
228 IF FN*="C*" THEN ? *? Prepare ca 
ssette, press tRETURNJ" 

238 OPEN »1,8,8,FN* MN 

248 POKE 766«ls? ttl;A*;'POKE 766,8 

258 CLOSE ttlt GRAPHICS BJ? "■[gmSlQOHlOSmB 

KE 

1888 DATA 568 

1818 DATA 8588498576488328768798688368 

61834184169887141882883184141885883184 Ah 

141884863184141869883184141 

1626 DATA 8888631628166328862280966341 

5585564885584 883287 7873676879868836861 UZ 

634164162816169687157666683 

1838 DATA 1692321578688631698001570690 

0316988115 787288316 9886157873883169688 DO 

133224832 668886165224281887 

1848 DATA 2486132818132486162 818262488 

66238224824144234634155855648 056048032 QU 

07707307607906883664 6653853 

1858 DATA 8418618341652321332348241442 

44165232141196862238224832686 886165232 LO 

141197882238224 8328 88666165 

1868 DATA 2321411986622382248326800061 

652321411990 02230224032 000006165232141 NO 

2000020241441961690 00133236 

1070 DATA 1330341550550480570480320770 

730760790 6803604004 9049053041061034230 RP 

165088133224133228165889133 



1886 DATA 2251332298328888861921362466 

9416 988613322716523284112813323516 5232 

84112713322628 8614832886 886 

1896 DATA 1652321332278326668861652321 

332261982261652352888286 3286683415 5855 

84964 884 863287 7673876679868 

1168 DATA 6368488496556536418618348661 

65232133233824144847198226169255197226 

28824519822716 9255197227288 

1118 DATA 2372481836328868861652321332 

33824144 81919822616925519722628823 8198 

227169255197227208230240 034 

1120 DATA 1550550490500488328778738768 

7906 8636648856 658657841861834696169882 

19723424868224 6281165233168 

1138 DATA 8681452248241696881812241332 

24169868181225133225238236169896197236 

20864 7169861197236288824024 

1148 DATA 1698011012281332281332241698 

88133236133238181229133229133834155655 

84965184 8632877673876879068 

1156 DATA 8366486586578498418616342258 

24144817238236624169848101228133224169 

868133236181229133225165235 

1168 DATA 2481762681491652331668881452 

24824169681181224133224169868181225133 

225165235248151288229634155 

1176 DATA 8566488486488326668828750618 

8588388284886586888264 8634164169880133 

877104104201088248007169112 

1188 DATA 1338161418142108966348410448 

66882675688841858082069084 085882878832 

858882869677632668873883865 

1198 DATA 8668768698838326666828690658 

75832887872869078632865882871661849155 



NEW WAY TO SPEED UP YOUR BASIC PROGRAMS 



EQUIVALENCE 



Article on page 44 



LISTING 1 



Don't type the 
TYPO II Codes! 



18 REM SOUND EfiUIUALENCE 
28 REM BY DOUG UNITE 
38 REM cc>1988, ANTIC PUBLISHING 
48 DIM S*C8> 
58 DIM U*C28> 
68 DIM CH*C256> 
78 REM 

86 UUT5T=PEEKC134J+256*PEEKC135> 
98 ? 

188 STARP=PEEKC148>+256«PEEKC141> 
118 REM 

128 SUNUM=8:REM 5* IS U ARI ABLE U 6 
138 REM IN THE UARI ABLE NAME TABLE 
148 REM 

158 REM CALCULATE OFFSET OF 
168 REM FREO. OF AUDIO CH.«0 
170 REM 

188 FREQ=53768 
198 OFFSET=FREO-STARP 
288 A0FFSET2=INTC0FFSET'256> 
218 A0FFSET1=0FF5ET-256*A0FF5ET2 
228 REM 

238 UUL0C=UUTST+cSUNUM>*8 
248 POKE UULOC+2, A0FFSET1 
258 POKE UUL0C+3,A0FFSET2 
268 REM 

278 REM AFTER THE OFFSET CHANGE 
288 REM 5*C1,1>=AUDF1 5$ c2 , 2> = AUDC1 
298 REM 5* c3,3>=AUDF2 
388 REM S$c5,5*=AUDF3 
318 REM 5$ t7,7*=AUDF4 
328 REM 

? "R-:? SOUND EfiUIUALENCE D 



5$ C4,4> =AUDC2 
S$c6,6>=AUDC3 
5$c8,8>=AUDC4 



338 
EMO" 

348 ? i? 
OL DATA" 

358 FOR 1=1 TO 255 STEP 2 
368 CH*cl,I>=CHR*c255-I> 
378 U=U-8.33*IF U<1 THEN U= 
388 CH*cl + l,I + U =CHR* C168 + INT cgii 
398 NEXT I 



'FILLING CHS WITH SOUND CONTR 



= 12 



OP 

uu 

NS 

HM 

VA 

CR 
CR 
JK 
FA 
OK 
LR 

NS 
DU 
HZ 
GD 
NG 
RC 
XD 

KR 

UY 

MU 

FT 
CN 
IE 
LC 
MU 
JK 
BS 

NN 
ON 



486 REM 

418 ? i? i? "CHARACTERS IN CH$ ARE CON 
UERTED INTO" 

428 ? "FREQUENCY, DISTORTION, & UOLUME 



438 ? 
D" 

448 ? 



'PARAMETERS FOR THE SOUND COMMAN 
•UITHOUT USING A POINTER STRING. 



458 ? 

468 FOR LOOP=l TO 2 

478 ? "ITERATION « ";LOOP 

488 FOR 1=1 TO 248 STEP 2 

498 FOR N=8 TO 3 

588 F=ASCCCHSCI,I>* : X= ASC CCH$ cl+1 , 1+1* 
) 

518 D = INTCX'16:> » U = X-16*INT cX'16* 

528 SOUND N,F,D,U 

538 NEXT N 

548 NEXT I 

558 NEXT LOOP 

568 REM 

578 ? :? :? "NOU USING A POINTER STRIN 

G" 

588 ? :? "CHS SUBSTRINGS ARE ASSIGNED 
INTO 55." 

598 ? "S$ IS STORED IN THE SAME MEMORY 

688 ? "LOCATIONS AS THE SOUND CONTROL 
• ■ 

618 ? "REGISTERS." 

628 ? 

638 SOUND 8, 8, 10,4 : SOUND 1,8,18,4 

648 SOUND 2,8,10,4:SOUND 3,0,10,4 

650 FOR LOOP = l .TO 10 

660 ? "ITERATION » ";LOOP 

670 FOR 1=1 TO 249 STEP 2 : SS=CHS cl . 1+7 

i s NEXT I 

688 NEXT LOOP 

698 END 
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LISTING 2 



LISTING 2 



18 
28 
36 
46 
EMO' 

56 ? :? "INPUT ARRAY SIZE C < 4666 > 



REM STRING EQUIUALENCE , 
REM BY DOUG UNITE 
REM c c >1988, ANTIC PUBLISHING 
? »H":? STRING EQUIU ALENCE 



68 

65 

67 

76 

88 

98 

168 

118 

128 

138 

148 

156 

168 

178 

188 

198 

268 

218 

226 

236 

248 

256 

266 

278 

266 

296 

366 

318 

326 

336 

348 

358 

368 

378 

388 

398 

486 

418 

428 

436 

448 

456 

468 

478 

488 

496 

588 

516 

526 

538 
548 
556 
568 
578 
588 
598 
688 
616 
628 
636 
635 
646 
658 
668 
678 
688 
696 
768 
718 
726 
738 
735 
748 
758 
768 
778 
788 
798 
888 
818 
826 



THE DATA "ARRAY* 



INPUT A5IZE 
IF ASIZE>3999 THEN 58 
IF A5IZE<18 THEN A5IZE=18 
REM 

DIM S$ci> ,MCASIZE> 
DIM USC28) 
DIM DEL A Y$ ell 
REM 

REM . FIND MEMORY LOCATIONS 
REM . FOR THE STRING AND THE 
REM . ARRAY THAT ARE TO BE 
REM . EQUIUALENCED. 
REM 

UNT5T=PEEKci38> +256*PEEK C131 J 
UNTEND=PEEKC132>+256*PEEKC133> -1 
UUTST=PEEKC134>+256*PEEKC135> 
STARP=PEEKC148>+256*PEEKC141> 
REM 

U$=»S$":REM . THE DATA 'STRING* 
GOSUB 2888 
SUNUM=UNUM 
REM 

U*="MC"tREM 
GOSUB 2888 
AUNUM=UNUM 
A0FF5ETL0=0FFSETL0 
A0FF5ETHI=0FFSETHI 
ADIM1L0=UDIM1L0 ■ ADIM1HI=UDIM1HI 
ADIM2L0=UDIM2L0: ADIM2HI=UDIM2HI 
REM 

REM . REDIMENSION THE STRING & 
REM . SET THE STRING OFFSET 
REM . EQUAL TO THE ARRAY OFFSET 
REM 

FIRSTDIM=ADIM1L0+256«ADIH1HI 
SEC0NDIM=ADIM2L0+256*ADIM2HI 
55IZE=6*FIR5TDIM*5EC0NDIM 
HBYTE = INT cSSIZE'256* 
LBYTE=SSIZE-256*HBYTE 
REM 

UUL0C = UUTST*cSUNUM:>*8 
POKE UULOC+2, AOFFSETLO 
POKE UULOC+3, AOFFSETHI 
POKE UULOC+4, LBYTE 
POKE UULOC+5, HBYTE 
POKE UULOC+6, LBYTE 
POKE UULOC+7, HBYTE 
REM 
? :? 



•FILL Mo UITH st • 5 1 TO A5IZE 



=8 TO A5IZE:MCI>=I:NEXT I 



REM 
FOR 1 = 
REM 

? :? "URITE Mo TO DISK" 
REM 

CLOSE s*l 

OPEN ssi, 8, 8, "Dl : ARRAY . DAT- 
POKE 18,6:P0KE 19,8:P0KE 28,8 
FOR 1=8 TO ASIZE 
N=MCI> 
? «1;N 

REM . FOR TURBO BASIC, USE ' 
REM *PUT ttl,N 
NEXT I 

GOSUB 1586:REM GET TIME 
REM 

? :? "URITE 5$ TO DISK" 
REM 

CLOSE »1 

OPEN ssi,8,8,"Dl:STRING.DAT" 
POKE 18,8:P0KE 19,8:P0KE 26,6 
? stl;S* 

REM . FOR TURBO BASIC, USE: 
REM BPUT «1 ,ADRcS$),SSIZE 
GOSUB 1568:REM GET TIME 
REM 

CLOSE ssi 

? :? "aaaeBBaiMifflmiiwafflBiafflCDHOfflffln 

INPUT DELAYS 
REM 

? :? "FILL MO UITH ONES" 
REM 



EM 
OG 
DD 
GU 
RH 
YQ 
UX 
QU 
EJ 
NA 
TZ 
DC 
GT 
RG 
UE 
HF 
RM 
HU 
EM 
BD 

IF 
UA 
AU 
HX 
UQ 
OP 
CI 
RJ 
ER 
QQ 
MR 
IH 
EX 
FN 

IQ 
RH 
BF 
JK 
UC 
NY 
EY 
QU 
IH 
MZ 
FG 
BC 
IJ 
OR 
5L 
SH 
AY 
ME 
NU 
YT 
ZO 
FN 
BA 
KN 
IA 
OB 
SB 
TU 
LH 
UC 

S5 

RL 
FR 
HZ 
SZ 
IF 
HH 
AO 
UU 
UZ 
SP 
YN 
UD 
JQ 
AH 
ZQ 
LG 

AZ 

TF 
CD 
AQ 



836 POKE 18.6:P0KE 19,8:P0KE 28,8 
848 FOR 1=8 TO ASIZE : M (D =1 : NEXT 1 
858 GOSUB 1588sREM GET TIME 
868 GOSUB 1686:REM PRINT Mcl TO 5> 
878 REM 

888 ? :? "FILL Hci UITH 3 ' S" 

898 ? "BY COPYING SUBSTRINGS IN 5*" 

988 REM 

918 POKE 18,8:P0KE 19,8:P0KE 28,8 

928 Mc8>=3sREM Mc8> = 5*ci,6> 

938 S*c7»=S*ci> 

948 GOSUB 1588<REM GET TIME 

958 GOSUB 1686>REM PRINT Mcl TO 5> 

968 REM 

978 ? :? "mmS@eHSSOfflmGQM0MiMQ 
988 INPUT DELAYS 
998 REM 
1888 REM 

1816 ? :? "REFILL Mo UITH DATA BY " 
1628 ? "READING ' Dl J ARRAY - DAT ' INTO Mc 
> •• 

1838 REM 

1846 OPEN ssi, 4, 6, "Dl- ARRAY. DAT" 
1658 POKE 18,8:P0KE 19,8:P0KE 28,8 
1668 FOR 1=8 TO ASIZE 
1878 INPUT stl;N 

1875 REM . FOR TURBO BASIC, USE: 
1888 REM x GET ssi,N 
1896 MCI1=N 
1188 NEXT I 

1118 GOSUB 1568:REM GET TIME 
1128 CLOSE ssi 
1138 REM 

1146 ? s? "REFILL Mo UITH DATA BY " 
1156 ? "READING * Dl : STRING . DAT ' INTO 5 

1168 REM 

1178 OPEN ssi, 4, 6, "Dl : STRING . DAT" 

1188 POKE 18,6:P0KE 19,8:P0KE 28,6 

1198 TRAP 1228:1=8 

1288 GOSUB 3866 : REM CIO METHOD 

1265 REM . FOR TURBO BASIC, USE: 

1218 REM BGET ssi ,ADRcS$),S5IZE 

1228 GOSUB 1586:REM GET TIME 

1238 GOSUB 1668:REM PRINT Mcl TO 5> 

1246 CLOSE stl 

1258 END 

1588 REM * GET TIME 
1518 REM 

1528 5EC= CPEEKC28>+256»PEEKC19> J '68 
1538 ? :? INT ci888**5EC>'1888; 
1548 ? " SECONDS" 
1558 RETURN 

1688 REM * PRINT Mcl TO 5> 
1618 ? 

1628 FOR 1=1 TO 5 

1636 ? "HC";I;»J = ";MCI> 

1646 NEXT I 

1658 RETURN 

2886 REM $ FIND U ARI ABLE « 
2818 REM 

2828 J=8:UNUM=-1 

2838 FOR I=UNTST TO UNTEND 

2646 CH=PEEKcl> 

2856 J=J+1 

2668 IF CH>128 THEN CH=CH - 128 : UNUM=UNU 
M + l 

2878 IF CHR$cCHK>U$cJ,JJ THEN J = 6:G0T 
0 2698 

2888 IF J=LENCUS> THEN 2188 
2698 NEXT I 
2186 REM 

2118 REM FIND U ARI ABLE LOCATION 
2128 REM 

2136 UULOC = UUTST + cUNUM>*8 

2148 0FF5ETL0=PEEKcUUL0C+2> 

2158 0FFSETHI=PEEKcUUL0C+3J 

2168 UDIMlL0=PEEKcUUL0C+4> 

2178 UDIM1HI=PEEKCUUL0C+51 

2186 UDIM2L0=PEEKcUUL0C+63 

2198 UDIM2HI=PEEKCUUL0C+7J 

2266 ? :? "US = ";U$;" UNUM = ";UNUM 

2218 RETURN 

2999 REM CIO METHOD 

3688 AD = ADRcS$> x ADHI = INT CAD'256) :ADLO = 
AD-ADHI««256 

3816 I=848:P0KE I+2,7:P0KE I+4,ADLO:PO 
KE 1+5, ADHI : POKE I+8,255:P0KE 1+9,255 
3838 N = USR c ADR C'hhhQLUm") , 16) 
3848 N = PEEKcl + 9i**256 + PEEKcl + 8J 
3858 RETURN 
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SPELLING FLASHCARDS 



Article on page 22 



LISTING 1 



Don't type the, 
TYPO II Codes! 



16 REM SPELLING FLASH CARDS (UER.5) 

28 REM BY ANDY BARTON 

36 REM ccil988, ANTIC PUBLISHING 

86 GRAPHICS IMPOSITION 6,3:? »6 ; "BH@H 

IBOBUGMSdQSQHHEslISQS" : ? *6 : ? »6 : ? «6 ; b 

y andu barton" 

96 GOTO 5588 

188 REM SUBROUTINES 

118 REM COUNTDOWN TIMER 

128 JIFS=SEC*68sTHI=clNTcJIFS'256)) : TL 
0W=JIF5-THI*256 

138 POKE 66,1:P0KE 548 , T LOW : POKE 541, T 

HIsPOKE 554,1:P0KE 66,8 

148 RETURN 

158 REM TUNE 

168 FOR Z=l TO NTS 

178 T=cINTcRNDc8>*7>+1:>*5+48 

188 FOR L=14 TO 4 STEP -2 

198 SOUND 0,T,18,L 

288 NEXT L : NEXT Z 

218 SOUND 0, 8, 8, 8 : RETURN 

228 REM BUZZER 

238 FOR Z=l TO NTS 

248 SOUND 8,58,6,16 

258 NEXT Z 

268 SOUND 8,8,0,8: RETURN 

278 REM MAIN SUB 1 

280 TEMP=TRACKc8,X)*15 

296 AWS = AWFScTEMP,TEMP + 15i:> 

386 GOSUB 828 

318 XAW=9-INT ccAWL+l>'2) 

326 REM MAIN SUB 1A UIEW WORD 

338 5EC=UIEW: GOSUB 118 

348 POSITION XAW+1,5:? »6;AW$ 

358 IF PEEKCTFLAG3 THEN 356 

368 REM BLANK-OUT LETTERS 

376 GOSUB 878 

388 FOR Z=l TO AWL'POSITION XAU+Z,6:? 
«6;"_"; t NEXT Z 

398 ANS$=BLANK*:REM 15 SPACES 

488 RETURN 

418 REM MAIN SUB 2 

428 REM INPUT LETTERS 

438 CHC=l:GOSUB 786 

448 POSITION XAW+CHC, 5 : GET »6,C=IF CO 
32 THEN CHC=CHC+1 : GOTO 548 
458 POKE CH,255:SEC=LIMIT:G0SUB 110 I PO 
SITION XAW+CHC , 6 : ? «6 ; "■" 

468 IF PEEKCCHK>255 THEN GET »3,CHR:G 
OTO 498 

478 IF PEEK CTFL AG* =8 THEN 588 
486 GOTO 466 

498 IF CHR=27 OR CHR=155 THEN POKE 712 

,68:G0SUB 760 : TOT = TOT + l i GOSUB 338:G0T0 

438:REM cESCi OR RETURN 

500 IF CHR=126 THEN 650:REM DELETE 

510 IF CHR032 AND CHR<>45 AND CHR<>39 

AND CHR<65 OR CHR>90 THEN 440 : REM NOT 
.. .. # ft _ z 

520 POSITION XAW+CHC, 6:? »6 ; "-" : P05ITI 

ON XAW+CHC , 5 : ? »6 ; CHRS cCHRi 

530 AN5ScCHC,CHC>=CHRScCHR> :CHC=CHC+1 

540 IF CHC<=AWL THEN 440 

550 REM CHECK SPELLING 

560 IF AN5S Cl, AWLJ = AWS THEN NT5=WTUNE : 

GOSUB 150 : TOT=TOT+l : COR=COR+l : GOSUB 78 

0: AN5$="":G0SUB 870:RETURN 

570 REM MISSPELLED 

580 POKE 712,68:T0T=T0T+1 

590 NTS=BUZZ : GOSUB 220 

600 GOSUB 760 

610 FOR Z=l TO AWL 

620 IF AU$CZ,ZX>AN5$CZ,Z> THEN POSITI 
ON XAW+Z,5'? «6 ; •• 
630 NEXT Z 



OE 
01 
TP 



GE 
QU 
RN 
ZM 

LT 
ZC 

ZD 
ZL 
BY 
OG 
ZZ 
JA 

US 

DK 

ZE 
OJ 
UQ 
TN 

ZI 
ZO 
TE 
WU 
ZU 
SO 
YD 
JZ 



LX 
MK 

AA 

RN 
WL 



AS 
LM 



OK 

AF 
RN 

WH 
PL 
IL 

RF 
XK 
PE 
JL 
IB 
AB 
NN 
ZC 



SY 
HF 



»6; "_" : CHC = CH 
«6;" "SAN55CC 



TRAC 



640 GOTO 430 
650 IF CHC = 1 THEN 440 
660 POSITION X AW+CHC , 6 : ? 
C-l:POSITION X AW+CHC , 5 : ? 
HC,CHC>=" ":GOTO 440 
670 REM TRACK SUB 
688 POKE 712,58 
698 FOR X=FL TO 1 STEP -1 
788 IF TRACKcl,X> THEN TRACK cl , XJ 
KC1, X> -l: GOSUB 286:G0SUB 438 
718 NEXT X 

728 FOR Z = l TO F L I F TRACKci,Z> THEN 7 
48 

738 NEXT Z:TRACKC1,8>=6 
748 RETURN 

758 REM SET TRACK SUB 

768 TRACK cl , 83 =1 : TRACK cl , X» =REPE AT 

778 REM DISPLAY SCORE 

788 POSITION 8,8:? *s6;"T0TAL ";T0T:P05 
ITION 8,1:? tt6;"RIGHT "iCOR 
798 Z=CHOICE CCCJ 'POSITION 11.01? »6;"L 
1ST *";Z 

795 POSITION ll-2*cDD*cZ*ll*9,Z*ll + 9:>< 
>'• »>,U? **6 ;DDScZ*ll,Z*ll+18* 
888 RETURN 
818 REM SHORT 
828 AUL=15 

838 IF AWS cAWL,AWL>=" " THEN AWL=AWL-1 
:IF AWL>6 THEN 838 

848 IF AWL>8 THEN AWS = AWS cl , AWD 

850 RETURN 

860 REM BLANK-OUT 

878 POSITION 8,5:? **6 ; BLANKS 

888 RETURN 

898 REM LOAD FILE 

986 FILENAMES=»D1 ■ " 

916 Y=4:Z=CH0ICECCC»*11:F0R X=8 TO 7:1 
F DDS cZ + X, Z + XJ <>" " THEN FILENAMES c Y , Y 
>=DDScZ+X,Z+X) :Y=Y+1 
926 NEXT X 

938 FILENAMES cYi=" . : FILENAMES CY+1*=DD 
ScZ+8,Z+18* 

948 TRAP 986:CL0SE «1:0PEN «1,4,8,FILE 
NAMES 

958 INPUT ttl;FL,UIEW 

968 FOR X = l TO FL:INPUT ttl ; TEMPS : Y = 15* 
X : AWFS CY, Y + 15-U=TEMPS :NEXT X ■ AWFS cY + 1 

53 =" 

978 TRAP 48886:CL0SE ttl : RETURN 

980 NTS=BUZZ:GOSUB 220:? "ERROR ";F 

ILEN AMES j is not a":? "Spelling Flash 

Card file" 
990 FOR Z = l TO 350:NEXT Z:POP : GOTO 46 
00 

1000 REM SAME LIST TO DISK 

1010 IF FL=0 THEN POSITION 2,21:? BLAN 

KS ; BLANKS ; "ffl ABORTED" : GOTO 4518 

1828 CLOSE ttl : OPEN ttl ,8,0, FILENAMES 

1838 ? »1;FL:? »1;UIEW 

1848 FOR X=l TO FL:Y=1S*X:? »l;AWFScY, 

Y+15-11 : NEXT X 

1658 GOTO 4516 

1668 REM ML SUBROUTINE 

1878 POKE 752,1 

1888 DL=PEEKC568>+PEEKC561>*256 
1898 SC=PEEKcDL+4>+PEEKcDL+5>*256 
1186 RETURN 

1116 Sl=PEEKcSC+784> : S2=PEEK C5C+784* 
1128 X=USRcADLON, SC+488, ADR CSTOR AGES) , 
160,1788,SC+4 80,80,SC+560,SC+4 88,400,A 
DLDAT, DL+15,4> 

1138 TC=1 : Pl=23 : IF AWC=1 THEN T2=C*15 : 
AWS = flWFS CT2, T2 + 15-1J 

1148 POSITION Pl-1- CC>9» , 16 : ? C;" ";AW 
S 
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1158 P2=5C+443:P0KE P2+TC , 255* CAWC=1> : 
REM PUT BAR UNDER FIRST LSTTER IN GR • 7 

1166 RETURN 

1170 X=USRCADL0FF,5C+879,SC+959,488,AD 
R C5T0RAGE*> ,5C+4 00,160,DL+14,DL+15,4> 
1188 POKE SC+704,Sl:POKE SC+784,52 
1198 RETURN 

3000 REM PROCES5 CHOICES 
3018 FOR CC = 1 TO CHOICE c0) 
3020 GOSUB 900 

3030 REM RADOMIZE TRACKING ARRAY 

3040 FOR X=0 TO FL : TRACK C0 , X> =0 : TRACK C 

1,X*=0:NEXT X 

3050 FOR TC=1 TO FL 

3060 X=INTCRNDC0)*FL*+1 

3070 IF TRACKC0,X1=0 THEN TRACK C0 , X> =T 
C:GOTO 3100 

3080 X=X+l:IF X>FL THEN X=l 

3090 GOTO 3070 

31O0 NEXT TC 

3110 REM LIST WORDS 

3120 POKE 752,0 

3130 GRAPHICS 2* cFL<ll»+l*cFL>10 AND F 
L<21>+0*CFL>20> :POKE 752,1 
3140 IF FL>20 THEN 3160 

3150 FOR X=l TO FL:P05ITI0N 2,X-l:G05U 
B 3190:NEXT X : GOTO 3210 
3160 HFL=INT c cFL+l> '2J 

3170 FOR X=l TO HFL:POSITION 4,X-l:G05 

UB 3190:NEXT X:IF X>FL THEN 3210 

3180 FOR X=X TO FL:POSITION 20,X-HFL-1 

:GOSUB 3190:NEXT X : IF X>FL THEN 3210 

3190 IF X<10 THEN ? «6 ; ■• J 

3200 ? «6;X;" " ; : Y=15*X i ? «6;AWF*cY,Y+ 

15-U : RETURN 

3210 ? :? " PRESS ANY KEY" 

3220 GET **3,Z 

3230 REM MAIN LOOP 

3240 GRAPHICS 2+16 : POKE 788 , 214 : TC=1 x T 

OT=0 : COR=0 : GOSUB 780 

3250 POKE 756,CHRSET'256 

3260 FOR AWC = 1 TO FL 

3270 IF TRACK ci , 01 THEN GOSUB 680 

3280 POKE 712,0:X=AWC 

3290 GOSUB 280:GO5UB 430 

3300 NEXT AI4C 

3310 IF TRACKC1,0> THEN GOSUB 680 : GOTO 
3316 

3320 REM REWARD SCREEN 

3338 POKE 712,8s? »6 ; '* ; BLANK* 

3348 POSITION 5,5:? »6 ; "GHDIEGMMHGMS" » NTS 

=LTUNE : GOSUB 158 

3358 NEXT CC 

3368 POKE CH> 255 : POSITION 2,8:? »6;"AN 
Y KEY TO GO ON" « GET »3,CHR:G0T0 4518 
3588 REM ADD NEW LISTS 
3518 GRAPHICS 2 ■ T2*=BL ANK* i Z=8 
3528 POSITION 2,8:? st6;"tvpe in new li 
st' 



INPUT 



3538 POSITION 2,3:? «6 ; "TITLE : 
T1*:IF Tl* = " OR Tl*="" THEN ? 
:? :? "ABORTED* 1 : GOTO 4518 
3548 IF TI* ci, 1J <"A" OR TI* ci , U > "Z" T 
HEN ? :? "Must start with a LETTER" * FO 
R X=l TO 100:NEXT X : GOTO 3518 
3545 IF LENcTl*>>8 THEN ? "H" i ? :? "To 
o Lons!":FOR X = l TO 100:NEXT X I GOTO 35 
10 

3550 Y=l>FOR X=l TO LENcTl*> 

3560 IF Z = 0 AND TI* CX , X> =" . THEN T2*c 

YJ=T1*CX,XJ :Z=Y+3: Y=Y+1 

3570 IF TI* cX, XJ >="0" AND Tl*cX,XX="9 
" OR TI* CX, XJ >="A" AND TI* CX , X> < ="Z" T 
HEN T2*CYJ=T1*CX,XJ : Y=Y+1 

3580 NEXT X : IF LENcT2**>12 THEN T2*=T2 
*ci, 12> 

3585 IF Z>0 AND LENcT2*>>Z THEN T2*=T2 
•ci,ZJ 

3586 Z1=LENCT2*> : FOR X=l TO LENcT2**:I 
F T2*cX,X>="." THEN Z1=X-1:Z=0 

3587 NEXT X : T2*=T2* ci f ZU 

3590 IF Z=0 THEN T2* cLEN cT2*J +1> =" . D AT 



3595 POSITION 2, 
7:? »6;"ACCEPT? 
THEN 3518 
3600 FILENAME*^ 
3610 POSITION 0, 
EUIEW?" 

3620 TRAP 3630:UIEW=DUIEU:INPUT Z'UIEW 



5:? »6; T2* : POSITION 2, 
CN»":GET »3,Z:IF Z=78 

Dl : " : FILENAME* C4)=T2* 
7:? «6;"H0W LONG TO PR 



HI 

JB 
TF 
FP 
JD 

OF 
GD 
LP 



RZ 

HU 

IZ 
YO 
AR 

RS 
TJ 

NW 

YK 
QH 

JO 
XL 
QF 

FK 
JY 

XA 

ZY 

RR 

SZ 



UD 
RK 



UY 
DO 

JC 



IN 
QX 

YW 

TE 

NE 
KL 
RX 

XU 

NL 

RH 

JM 



WG 
UU 

PP 
FB 
YQ 



NQ 

LS 
TX 
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3630 TRAP 40000:POSITION 2,9:? »6;UIEW 
;" SECONDS" : 5EC=UIEW: GOSUB 110 
3648 IF PEEK cTFL AG) THEN 3648 
3658 GOTO 3828 
3660 REM EDIT LIST 

3670 TRAP 5000 : CHOICE cii =UAL CCHOICE* C2 
)) : CC=1 

3680 GOSUB 900 : TRAP 40000 
3690 AMC=1 : X=0 : GRAPHICS 0 : GOSUB 1070 
3700 ? :? "This file is set to preview 
words for ";UIEW;" Seconds":? :? "Ent 
er new tine or press ■HSOGDEEM" 
3710 TRAP 3748:INPUT Z : UIEW=Z : TRAP 400 
00 

3720 ? :? UIEW;" Sec onds" : 5EC=UIEW i GOS 
UB 110 

3730 IF PEEKCTFLAG) THEN 3730 

3740 ? "H":IF FL>20 THEN 3760 

3750 FOR X=l TO FL:POSITION 2,X-l:G05U 

B 3790:NEXT X : GOTO 3830 

3760 HFL=INT c CFL+1J ^23 

3770 FOR X=l TO HFL:POSITION 2,X-l:G0S 
UB 3790:NEXT X 

3780 FOR X=X TO FL:POSITION 21,X-HFL-1 
:GOSUB 3790:NEXT X : GOTO 3830 
3790 IF X<10 THEN ? " "; 

3800 ? X;" ";:Y=15*X:? AWF* c Y , Y+15 - 1> : 
RETURN 

3810 REM INPUT NEW WORDS 
3820 GRAPHICS 0:GOSUB 1070:FL=0 
3830 POSITION 2,21:? "■UHSHM word or 
nmm to Edit ■I3SE1LUIMH TO SAUE 

3840 POKE CH,255:GET «3,CHR 

3850 IF CHR=155 THEN 1010 : REM SAUE FIL 

3860 IF CHR<48 OR CHR>57 THEN 3920 I REM 
NOT 0-9 

38 70 AWC = 1 : C = UAL cCHR* cCHR) >:SEC = 0.5:GO 
SUB 110 

3880 IF PEEKCCHJ=255 THEN IF PEEK cTFL A 
G> THEN 3880 

3890 IF PEEK cCH> < > 255 THEN GET «3,Z:IF 
Z>47 AND Z<58 THEN C=C*10+U AL CCHR* CZ^ 

1 

3900 IF NOT CC<1 OR OFD THEN 3910 
3905 POSITION 4,23:? C," Is too large" 
;:FOR X=l TO 99:NEXT X:POSITION 0,23:? 

BLANK*; : GOTO 3830 
3910 GOTO 3950 

3920 IF CHR<65 OR CHR>90 THEN 3 84 0 : REM 
NOT A-Z 

3930 FL=FL+lsIF FL>40 THEN FL=40:PO5IT 
ION 2,23:? "■fflHHDIHDfflBEaBDiaBfflfflmtQHB" I FOR 

X = l TO 150:NEXT X : GOTO 3740 
3940 C = FL : T2 = C*15 i AW* = BL ANK* ' AW* ci, U = 
CHR* CCHRJ : AWC = 0 

3958 POSITION 2,21:? BL ANK* ; BLANK* ; *• PO 
KE 752, 1 : POSITION 2,21:? "■QEO» word 
and Press ■SSIifflafflB" ; 
3968 GOSUB 1118 

3978 IF AMC=8 THEN TC=TC+l:POKE P2+TC , 
255 

3988 GET »3,CHR 

3998 IF CHR=155 THEN 4090:REM RETURN 
4088 IF CHR=254 THEN 4190:REM CTRL DEL 
EAT 

4010 IF CHR = 126 THEN IF TCOl THEN 422 
0 : REM DELETE 

4020 IF CHR=30 OR CHR=43 THEN 4230 : REM 

MBll 

4038 IF CHR=31 OR CHR=42 THEN 4250:REM 

4040 IF CHR>64 AND CHR<91 OR CHR=32 OR 
CHR=45 OR CHR=39 THEN GOTO 4060:REM A 
-Z OR SPACE OR - OR 
4050 GOTO 3988 

4868 POSITION P1 + TC1B:? CHR* cCHRi « AW* 

CTC, TCJ =CHR* CCHR) : POKE P2 + TC0 

4878 TC=TC+l:IF TC>15 THEN TC=15 

4880 POKE P2+TC, 255 : GOTO 3980 

4090 POKE CH,255:G0SUB 820:POKE 94, PEE 

KCDL+4J:P0KE 95 , PEEK cDL+5> : GOSUB 1170: 

IF AWL=0 THEN 4160 

4100 T2* ci, 15>=BLANK* i T2* ci # AWL » = AW* : A 
WF* CT2, T2 + 15-1>=T2* 
4120 IF AWC=0 THEN 3740 

4130 X = C:IF FL < 21 THEN POSITION 2,C-U 

continued on next page 
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GOSUB 3790:GOTO 3836 

4148 IF C>INT((FL + D'2) THEN POSITION 

21^ C-HFL-1 ' GOSUB 3790:GOTO 3838 

4158 POSITION 2,C-l:G0SUB 3798:G0T0 38 

38 

4168 IF FL<2 THEN POSITION 2,19:? BL AN 
K*;" ABORTED"; :GOTO 4518 

4178 IF C=FL THEN AMF* = AMF* el , T2 - 1 ) : FL 
=FL-l:GOTO 3748 

4188 AMF*(T2)=AMF*cT2+15) : FL=FL - 1 : GOTO 
3748 

4198 IF TC = 15 THEN AM*(15)=" " * GOTO 42 
18 

4288 AM*cTO=AM*(TC + D : AM*(15)=" " 
4218 POSITION Pi+1,10:? AMS'GOTO 3986 
4228 POKE P2 + TC,8:TC = TC-l:P0KE P2 + TC2 
55:P0SITI0N Pl + TC,18s? M " : AM* (TC , TO = 
GOTO 3988 

4238 IF TCOl THEN POKE P2 + TC , 8 t TC = TC - 
l:POKE P2 + TC255 
4248 GOTO 3988 

4258 IF TC015 THEN POKE P2 + TC , 6 : TC = TC 
+ l:POKE P2 + TC255 
4268 GOTO 3988 

4588 REM DISK DIRECTORY & CHOOSE WORD 
LIST csi 

4518 CLOSE «l:OPEN «1 ,6,8,"D1:*.DAT" 

4528 DD* el) = DD* c 65*11 J = DD* (2) = 

DD* 

4538 DD=1 

4548 INPUT «1,TEMP* 
4568 IF TEMP*(5,16)= 
N 4598 

4578 DD* (11*DD, 11*DD+18) =TEMP* (3, 13) :D 
D=DD+1 

4588 GOTO 4548 

4598 CLOSE »l:DD=DD-l 

4688 GRAPHICS 2*(DD<11)+1*(DD>18 AND D 
D<2D+8*(DD>28) : POKE 752,1:? ••H" ' IF DD 
=8 THEN 4748 

4618 IF DD>28 THEN X=8:G0T0 4638 
4628 FOR X=l TO DD:P05ITI0N 2,X-U 
B 4716:NEXT X : GOTO 4748 
4638 IF X=41 THEN 4688 
4 64 8 TEMP = DD* cOD<41>+48* cDD >4 0> 
4658 HDD = INT ( (TEMP + D '2) 
4668 FOR X = l TO HDD : POSITION 4,X~1: 
UB 4718:NEXT X : IF X>TEMP THEN 4748 
4678 FOR X=X TO TEMP : POSITION 20,X-HDD 
-l'.GOSOB 4718:NEXT X : GOTO 4746 
4688 HDD = INT ( (DD-40 + D '2) +40 
4698 FOR X=X TO HDD : POSITION 4,X-4l:GO 
SUB 4716:NEXT X : IF X>DD THEN 4748 
4786 FOR X=X TO DD:P05ITI0N 20,X~HDD-1 
:GOSUB 4718:NEXT X : GOTO 4746 
4718 IF X<18 THEN ? «6 ; " M J 
4728 ? **6;X;" ";DD*(X*11,X*11+10); :RET 
URN 

4738 REM INPUT MESSAGES 



•FREE SECTORS" THE 



G05U 



i GOS 



4748 POKE 752,8 
4758 POSITION 2,26 
3 or 3,5,9 or 2-7 
? "■[§■□■ 



'Choose ■□■ (EX. 



Edit a list 



mum New li 



4766 
St" 

4776 IF DD>48 THEN ? "■raSDODGiGH More ch 
o i c es" 

4788 ERR0R=5888 
4798 INPUT CHOICE* 
4806 L=LEN(CHOICE*) 

4818 IF L=8 AND DD>48 THEN GRAPHICS 8: 
POKE 752,1:? "H":GOTO 4636:REM MORE CH 
OICES 

4828 IF L=8 THEN 4688 

4838 IF CHOICE*(l,D="N" THEN 3518 
4846 IF CHOICE* (1,D="E" THEN 3678 
4858 IF CHOICE*(1,D<"0" OR CHOICE*ci, 
1)>"9" THEN 5888 

4868 CC = 8 * TEMP* = BLANK* * TC = 8 * DASH = 8 
4878 FOR Y=l TO L 

4888 IF CHOICE*cY, Y) <"8" OR CHOICE*cY, 
Y)>"9" THEN 4918 
4898 TC=TC*1 

4988 GOTO 4958»REM NEXT Y 
4918 IF TC< >8 THEN CC=CC+1 ' CHOICE (CO = 
UAL CCHOICE* CY-TCJ ) :TC = 8:IF CHOICE (CO > 
DD THEN GOTO 5888 

4928 IF DASH=1 THEN GOSUB 4998:G0T0 49 
48 

4938 IF CH0ICE*CY, Y»="-" THEN DA5H=l:G 
OTO 4958 

4948 IF CHOICE*cY, Y) <>"," THEN 5868 



MT 
MT 



GC 
AL 
OE 

MD 

BU 

AU 
QZ 
NG 
ME 
NX 

FO 

JS 

OT 

TY 

HM 

YU 
RY 



LM 
PJ 



AH 

GJ 
CX 
SK 



UH 



EJ 
ED 
JJ 
LJ 
UU 



RQ 



FG 



PZ 
AT 
LM 



XS 
RU 



4958 NEXT Y 

4968 IF TC<>8 THEN CC=CC+1 : CHOICE (CO = 
UAL (CHOICE* (Y-TO) : IF CHOICE (CO > DD TH 
EN GOTO 5888 

4978 IF DASH=1 THEN GOSUB 4998 

4986 CHOICE (83 =CC : GOTO 3818 

4998 DA5H=8xCC=CC-l:X=CH0ICECCC> :Z=CHO 

ICECCC + H-X:F0R CC = CC TO CC + Z 

4995 CH0ICECCC>=X'X=X+1:NEXT COCC = CC- 

1 RE TURN 

5668 NTS=BUZZ : GOSUB 228:? "ERROR -- Mr 

ong Input Forn" ;: SEC=2 : GOSUB 116 

5616 IF PEEK (TFLAO THEN 5818 

5628 GOTO 4686 

5568 REM EQUATES TABLE 

5516 REM UALUE UARIABLE5 

5526 MTUNE = 20 * REM LENGTH OF TUNE FOR M 
ORD 

5538 LTUNE=88 : REM LENGTH OF TUNE FOR F 
INISHING LIST 

5546 BUZZ=26:REM LENGTH OF BUZZER FOR 
ERROR 

5550 DUIEM=0 . 75 : REM SECONDS TO UIEM MO 

RD (INITIAL DEFAULT UALUE) 

5568 LIMIT=28:REM TIME LIMIT (SECONDS) 

TO TYPE EACH LETTER OF THE MORD 
5578 REPE AT = 3 REM NO. OF TIMES TO REPE 
AT A MISSED MORD 
5738 REM INITIALIZE 

5746 DIM STORAGE* (160) : STORAGE* (D =" " 
: STORAGE* (168)=" »» I STORAGE* (2) =STOR AGE 
*:DIM BLANK*(383 

5756 BLANK* = STORAGE* : DIM DD* (65*11* * RE 
M DISK DIRECTORY 

5768 DIM FILENAME* (15> , CHOICE* (128* ,TE 
MP* (32) , T*(144) , Tl*(17) , T2*(17) , CHOICE 
(64) 

5776 AMC=8 : REM ACTIUE MORD COUNT UARIA 
BLE 

5788 TFLAG = 554 s REM FLAG FOR COUNTDOMN 
TIMER ROUTINE 

5798 DIM AMF*((48*15)+15) : REM ACTIUE M 
ORD FILE - A STRING 

5888 DIM TRACKC1,48> : REM REM TRACKING 
MATRIX - LEUEL (8,X). 8=C0RRECT NOT 0 

= STILL TO DO 
5818 REM - LEUEL (1,X> KEEPS TRACK OF 
NO. OF TIMES LEFT TO REPEAT A MISSED M 
ORD 

5828 DIM AM*(15i:REM ACTIUE MORD 
5836 DIM ANS*(15>:REM ANSMER 
5846 CH=764:REM LAST KEY PRESSED 
5850 CLOSE **3 : OPEN «3,4,8,"K:" 

5868 T*d,72i="h d^mmn^nunumiAWAU^imwi 

mQBSmffiDSh dZI QB0 d/l fB0 d0 910 d0 [BBHh dtf 
■BQEIBOHflHLIH" 

5876 T*(73,144)="[QSQQGSBamQnsmffim d0 W 

d/i ^whQhDhacihaQhaaihaahamhnmaHnH^iriHii 

□□enmuQesBeesBB" 

58 88 TEMP*="h" : TEMP* (2, 19)=T* (185, 122) 
: TEMP* (28, 32) =T* (12 8, 148) i X=USR(ADR(TE 
MP*) , ADR(T*) ,1536,144) 

5898 ADL0N=1567 ■ ADL0FF=1593 : ADLD AT=167 
6 

5988 CHRSET= (PEEK (186) - 8) *256 : X=USR (15 
36, 57 344, CHRSET, 512) 

5916 RESTORE 5926:F0R Z = 564 TO 511 : RE A 
D X:POKE CHR5ET+Z, X :NEXT Z : REM REDEFIN 
E " '* 

5926 DATA 6,126,8,8,6,8,6,8 
5936 GOTO 4518 



LISTING 2 



AM 
PY 
FJ 
RO 
EU 

IJ 
PR 

MO 

RD 

PY 



36 



18 REM SPELLING FLASH CARDS - LISTING 2 
28 REM BY ANDY BARTON 

38 REM (O 1985,1987 ANTIC PUBLISHING 
35 REM CREATES LINES 5868-5878 
48 REM (LINES 18-258 MAY BE USED MITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
58 REM CHANGE LINE 78 AS NECESSARY.) 
68 DIM FN*(28) ,TEMP*(28) , AR*(93) :DPL=P 
EEK(18592) : POKE 16592,255 

78 FN*="D : LINES . LST" : REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
88 ? "Klfflisk or Basset te?" ;: POKE 764,25 
5 

98 IF NOT (PEEK(764)=18 OR PEEK(764)= 
58) THEN 98 

ANTIC SOFTWARE LIBRARY 



STEP 3:P0KE 75 



180 IF PEEKC764>=18 THEN FN$="C:" 

118 POKE 764,255:GRAPHIC5 8:? " AN 

TIC'S GENERIC BASIC LOADER" 

128 ? , "BY CHARLES JACKSON" 

138 POKE 18592, DPL : TRAP 288 

148 ? :? :? "Creating ";FN$:? "...Plea 

se stand by." 

158 RESTORE : READ LN ' LM=LN : DIM AS cLNi : 

C = l 

168 AR$="":READ AR$ 
178 FOR X=l TO LENcflR$> 

2,255 

188 LM=LM-l:POSITION 18,18:? " cCountdo 
wn . . . T-"; INT cLM'18* ; "i 

198 A$cC,C*=CHR$cUALcAR$cX,X + 2)):> :C = C + 
l:NEXT X:GOTO 168 

288 IF PEEKC195)=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " : END 

218 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
228 IF FN»="C:" THEN ? :? " Prepare ca 
ssette, press ERETORNi" 



AR 
PU 
AL 

HC 
Y A 



NN 

HY 
ZC 
DK 
FL 



238 OPEN «1,8,8,FN* 

248 POKE 766,1:? t*l;A*;:POKE 766,8 

258 CLOSE **1 : GRAPHICS 8:? ' 1 ■SHIGDHDiaDfiBBI 
■• 

1888 DATA 188 

1818 DATA 8538568548488328848368488498 

44855858841861834184832188886168888177 

248145212238212288882238213 

1828 DATA 2382482880822382411982382882 

3419823981623889618483218888603212 7006 

032100006032127006032100006 

1030 DATA 0320040060321000060321270060 

9610403210000616888817724814 5212198212 

28888219883415585385685584 8 

1848 DATA 8328848360480550510440490520 

5204106103421319824 82888821982411982 38 

288236198239816232832188886 

1858 DATA 8321278868321888868321278868 

9618417818416818413324118413324 8184133 

213184133212184133239184133 

1868 DATA 2381528721388728961662381688 

88177248145212288282288248896806007010 

010034155 



Coming Next in March '89 Antic 

• SpartaDOS X: ICD's Ultimate Operating System Reviewed by Matthew Ratcliff • 
• Electric Signwriter — Flashy Automated Display Screens • 
• Antic-Pak Utilities • Demon Racer ACTION! Game • 
• "Planetfill" Text Adventure 2-Part Disk Bonus Starring Iggy the Droid • 



GET YOURS FAST 




Super Bonus Program! 

Found only on the disk, it's too large a type-in 
program to fit in the magazine. 

Plus all 172K of this month's Antic programs on 
disk. Great 8-bit software without typing! 

Phone Toll Free 

(800) 234-7001 

Phone orders by Visa or MasterCard only 
AskforADS289 




The ATARI" Resource 



SOFTWARE, ETC. 

Discount Software/Hardware for ATARI 8-bit & 
ST. 30% below retail Atari 130XE 8145, Supra 
20meg-ST $519, ATARI XF551 disk drive $175, 
Anchor 2400 baud modem $159, Star NX-1000 
color $239. Send $1 for 20 page catalog with 
over 500 titles. Specify computer type. MULTI 
VIDEO SERVICES, Box 246, E.Amherst, NY 
14051 Phone 716 688-0469 after 6 pm (4/89) 

Best PD disks/prices-fastest service-FREE 
bonuses-8-bit/ST. Automatic DISK-A-MONTH 
program. Full disks less than SI. 50 each. Super 
sample disk with catalog S3. 50. Specify com- 
puter. PATNOR, POB 370782, El Paso, TX, 

79937. (2/89) 

Si's Fantastic Selection of packed ATARI 8-bit 
(D-S)/ST PD Theme Disks is Far SUPERIOR to 
all other collections we've seen— TRY US! Send 
for MLX GAMES 'GREATEST HITS (our Most 
Popular title), plus Si's newest catalog, for 
8-bit/$3.00 or ST/S4.50. Catalog alone (specify 
system)/$2.00. SOFTWARE INFINITY, 642 East 
Waring Avenue, State College, PA 16801 (2/89) 

FREE DISK!! We would like to send you one of 
the best PD games avilable for the 800/XL/XE. 
Limited offer. Write today. ComputerActive, 
Box 893-D, Clinton, OK 73601 (2/89) 
12 X-RATED DISKS FOR THE ATARI 
800/XL/XE only S 14. 95 + S2.50S/H. You must 
send a signed statement of being over 21 with 
check or money order to: ComputerActive, Box 
893-X, Clinton, OK 73601 (2/89) 

PRINTSHOP ICONS FOR THE ATARI 
800/XL/XE. 10 disks with over 1000 pictures 
for use with Printshop. Only 14.95 + 2.50 S/H. 
Order today! ComputerActive, Box 893-P, Clin- 

ton, OK 73601 (2/89) 

MGL COMPUTER WHOLESALERS. BUY- 
SELL-TRADE. Used 8 Bit Computers, Soft- 
ware, Diskdrives, Modems, Printers and acces- 
sories. Huge Public Domain Library. Low 
Prices-30 day Warranty. Call 717-267-3205 or 
267-2865, or 762-6967 For Prices and Com- 
plete List (4/89) 

200 DS/SD DISKS OF PD SOFTWARE FOR 
THE 8-BIT ATARI. PLEASE SEND $3 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 
KS 67502 FOR A CATALOG LISTING AND 
DEMO DISK.(2/89) 



West Coast Advertising Sales Representative: 

AUSTIN HOLIAN 

544 Second Street 

San Francisco, CA 94107 

(415) 957-0886 



Antic Classifieds 



MoonSoft 8-bit. LabelMaster and Multi-Column 
Lister $10. Included with Small Business Sys- 
tem $30. Send SASE for info. Black Moon Sys- 
tems, Pob 152, Windgap, Pa 18091.(2/89) 

****** 

Stop overpaying for P.D. software!!! ALL 8-bit 
disks only $2.00 each, ST only $3.00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS,890 N. 
Huntington St., Medina, OH 44256 (2/89) 

ST MONITOR AND MIDI CABLES. Monitor 
cable gives 520 ST composite video/audio for 
non-Atari monitor or VCR $15- PAIR OF 10' 
coiled midi cables for all STs $20. Include $2 
S/H per order. Southern Security, 14007 Long- 
vue, Baker LA 70714 (2/89) 

DUST COVERS: Protect your investment with 
durable, anti-static, water resistant covers cus- 
tom designed for your 800XL, 65XE, 130XE, 
1050 Drive, 520ST, 1040ST Specify cover(s) 
and send $8.95 each plus $2.90 shippiing: 25th 
Century, 234 Fifth Avenue, Suite 301, New 
York, NY 10001. (2/89) 

****** 

AUTORUN SYSTEM. Make all your basic pro- 
grams autorun with The Basic Autorun System. 
Send $5.00 for disk to: R.D.K. 321 Imperial 
Ave. #12-099 Calexico, CA 92231 (2/89) 

Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, PO Box 692 

Manassas, VA 22111-0692(7/89) 

ENJOY quality public domain software! 
Games — productivity — utilities — communica- 
tions — more! Catalog FREE. . .demo disk, 
$3- 00. Homemade, 6011 Hyde Park Circle, 
Suite 202, Jacksonville, FL 32210(2/89) 

****** 

FOR SALE 8-BIT MULTI USER BBS SYS- 
TEM! The only 8-bit BBS system of its kind. 
Will sell everything you need to get up and run- 
ning within hours. Write today for information: 
Micro Systems, PO Box 18346, Ft. Worth, 
Texas, 76118 (2/89) 



ADVERTISING SALES 



East Coast Advertising Sales Representative: 

DAVID S. KESTER 

544 Second Street 

San Francisco, CA 94107 

(415) 957-0886 



SynFile+ UTILITY PROGRAMS. Print file lay- 
out, create and save reports, undelete records, 
alter look-up tables, etc. S 19.95 plus S2.00 
P&H. Send large SASE for more info. SFP, 4 For- 
est Drive, Palmyra, VA 22963 (2/89) 

The first 100 requests for our list of Atari 
800/XL/XE PD disks will receive our best sell- 
ing game disk free. Hurry before the free disks 
are gone! Limit one free disk per address. 1st 
Byte, P.O. Box 130822, Tyler, TX 75713 

Public domain Disks: ST $4.00, 800/XL/XE 
$3.00. Largest ST selection. ST Bible on disk 
$39.95. Blank disks SCALL. VISA/MC. FREE 
Catalog — Call or Write, Specifiy Computer. 
BRE Software, 352 W. Bedford, Suite 104-AN, 
Fresno, CA 93711. (800)622-7942, (209)432- 

2159 in CA.(2/89) 

SAVE MONEY ON ATARI 800/XL/XE SOFT- 
WARE! Public Domain and Shareware soft- 
ware! Over 250 Theme Disks! Every disk 
guaranteed! Fast dependable world-wide serv- 
ice! Send for your Free descriptive Catalog! 
BELLCOM, Box 1043-A, Peterborough, 
Ontario, Canada, K9J 7A5.(2/89) 

Martian Solutions: BLOOD & DUNG Order 
BLOOD and you'll receive a 3 + page detailed 
Order BLOOD walk-through of Captain Blook. 
Just $3-50 + .50 shipping. With the 100+ page 
DUNG (DUngeonMaster Notes Galore) you can 
finally solve FTL's great game. Includes Spell 
List, Detailed Maps of ALL levels, hints, tips & 
solutions for the toughest puzzles. $9. 95 plus 
$1.05 shipping. Mars Merch. (address, etc. 
below. )Martian Light PhasarWe've converted a 
major manufacturer's gun to be used with all 
Atari 8-bit computers. 100% compatible with 
the Atari XL/XE game system gun. We believe 
it to be more accurate and better weighted than 
most any gun in the universe. $39-95 plus $3 
shipping (UPS). 312/530-0988 MARS Merchan- 
dising, 15W614 Diversey, Elmhurst, IL 60126- 
1257 (2/89) 

AGAPE GAMES- 5 CHRISTIAN GAMES. 

KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener- 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
$12.95-Daniel Sharpe, GPO 911, Chicopee, MA 
01021.(3/89) 



Address all advertising materials to: 
KATE MURPHY 

Advertising Production Coordinator 
Antic Magazine 

544 Second Street 

San Francisco, CA 94107 



Advertisers 
Index 



PAGE NO. 

AMERICAN TECHNAVISION 1 

ANTIC SOFTWARE 60 

B & C COMPUTERVISION . 40 

COMPUTABILITY 20,21 

COMPUTER REPEATS 47 

COMPUTER MAIL ORDER 4,5 

COMPUTER SOFTWARE SERVICE 2 

COVOX 56 

LYCO IFC,16,17 

MAD SCIENTIST 56 

PSYGNOSIS BC 

SOFTWARE DISCOUNTERS OF AMERICA . . IBC 
SPRINGBOARD 6 



This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 



Advertising Deadlines 



March 1989 

Insertion Orders: December 1 
Artwork: December 8 

On Sale: Last week of January 



April 1989 



Insertion Orders: January 2 
Artwork: January 9 

On Sale: Last week of February 



May 1989 



Insertion Orders: January 30 
Artwork: February 6 

On Sale: Last week of March 



BUY 



SELL 



TRADE 



SWAP 



Antic Classifieds 

544 Second Street, San Francisco. CA 94017 
Telephone (415) 957-0886 



City/State/Zip 



MasterCard/Visa Number 



Signature 

Enclosed is my payment for S_ 



Expiration Date 



Issuers) Ad to Appea 



RATE: SI. (X) PER WORD— twenty (20) word minimum. 

BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars ★★★★★★ at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads arc subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988— December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 



AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



^^SbomputerVisions 



3257 KiferRoad 
Santa Clara, CA 95051 
(408) 749-1003 



A 



STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



iiggg&> 800/LX/XE 

ENTERTAINMENT 

ACE OF ACES 13.50 

ALIANTS 26.95 

ALT. REALITY: 

THE CITY 26.95 

THE DUNGEON 35.95 

BEYOND CASTLE WOLF.. 17.95 

BISMARK 26.. 95 

CASTLE ' WOLFENSTEIN . . 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS... 22.50 

GUNSLINGIR 26.95 

KARATEKA 13.50 

KICKSTART 8.95 

LAST V-8 8.95 

MOUSETRAP 17.95 

NINJA 8.95 

SARACEN 17.95 

SPEEDKINS .. 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STRIP POKER 26.95 

THE HULK 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER 22.50 



SPORTS 

COMPUTER 3ASEBALL .. 13.50 
COMPUTER QUARTERBACK 13.50 

LEADERBOARD 13.50 

MICROLEAC-'JE BASEBALL 35.95 
TRACK & FIELD 26.95 



SOFTWARE C<®& 
music m 

MUSIC COMPEMDIUM ... 35.95 

MUSIC STUDIO 31.50 

BANK ST. MUSIC WRITER 13.50 

VIRTUOSO 44.95 

PROGRAMMING 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 19.95 

PILOT 19.95 

PRODUCTIVITY 

ATARIWRITER 30.00 

CELEBRITY COOKBOOK .. 26.95 

COMPUTE YOUR ROOTS .. 35.95 

COMPUTER GOURMET .... 26.95 

FAMILY FINANCE 12.95 

HOME ACCOUNTANT 24.95 

HOME FILING MANAGER . 12.95 

NEWSROOM (1050 - 6:4 K) 44.95 

NEWS STATION 26.95 

NEWS STA. COMPANION . 26.95 

PAPERCLIP W/SPELLl 29.95 

POWER PRINT (1050)... 13.50 

PUBLISHING PRO 35.95 

SYNCALC 31.50 

TIMEWISE 12.95 

VIDEO TITLESHOP (64K) 26.95 

GRAPHICS COMPANION 17.95 

VISICALC 24.95 

ART 

GRAPHICS MAGICIAN ... 22.50 
BLAZING PADDLES 31.50 



SOO/ X E/ X E 
C s\ R T RIZ>GES 




ALIEN AMBUSH 

ARC HON 

ASTEROIDS 

ATARI TENNIS 

BALL BLAZER 

BARNYARD BLASTER 

(REQ. LIGHT GUN) . . . 

BATTLEZONE 

BLUE MAX 

CENTIPEDE 

CHICKEN (400/800) 

CLAIM JUMPER 

CLOUDBURST 

DAVIDS MIDNIGHT MAGIC 

DEFENDER 

DIG DUG 

DONKEY KONG 

DONKEY KNOG JR 

E.T. PHONE HOME 

FIGHT NIGHT (XL/XE) . . 

FINAL LEGACY 

FOOD FIGHT 

FOOTBALL 

FROGGER 

FROGGER II 

GALAXIAN 

GATO 

GYRUSS 

HARDBALL 

JOUST 

JUNGLE HUNT 

LODE RUNNER 

MILLIPEDE 
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95 


19 


93 


15 


95 


9 


. 95 


19 


.95 


24 


. 95 


19 


.95 


1 9 


. 95 


14 


.95 


9 


9 5 


9 


95 


9 


.95 


19 


95 


14 


.'95 


19 


. 95 


5 


. no 


19 


. 95 


9 


. 95 


19 


. 95 


19 


. 95 


19 


. 95 


14 


. 95 


14 


. 95 


14 


. 95 


19 


.95 


24 


. 95 


14 


. 95 


19 


. 95 


19 


. 95 


19 


.95 


24 


. 95 


19 


. 95 



MISSILE COMMAND 

MOON PATROL 

MR. COOL 

MS. PAC MAN 

ONE ON ONE (XL/XE) . . . 

PAC MAN 

PAST FINDER 

PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS . 
RETURN OF THE JEDI . . 

ROBOTRON:2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II 

SUPER BREAKOUT 

WIZARD OF WOR 



<£jG I JL?> 

5.00 
. 19.95 
9. 95 
. 19.95 
19.95 
5.00 
24.95 
19.95 
19. 95 
14.95 
14 . 95 
14.95 
19.95 
14.95 
19.95 
14 . 95 
9.95 
14.95 
5.00 
19.95 
9.95 
5.00 



ATARI XE GAME MACHINE 
$139.95 

Includes Missile Command, Flight 
Simulator II, Bug Hunt, light gun, 
joystick, BASIC programming 
language, and 64k of memory with a 
detachable keyboard. Add a disk drive 
and printer for a complete home 
computer system! 



800IXLIXE 

CMLDRENS EDUCATIONAL SOFTWARE 



CBS 

(age 3-6 on disk) 

ERNIES MAGIC SHAPES 8.95 

ASTROGROVER 8.95 

BIG BIRD SPEC. DELIVERY 8.95 

FISHER PRICE 

(pre-3chool on cartridge) 

MEMORY MANOR 8.95 

LINKING LOGIC 8.95 

DANCE FANTASY 8.95 

LOGIC LEVELS 8.95 



SPINNAKER 

ALF IN THE COLOR CAVES 

(age 3-6- cartridge) . 
ALPHABET ZOO 

(age 3-8 cartridge) . 
DELTA DRAWING 

(age 4-up cartridge) 
FACE MAKER 

(age 3-8 cartridge) . 
HEY DIDDLE DIDDLE 

(age 3-10 disk) 

KIDS ON KEYS 

(age 3-9 cartridge).. 
KINDERCOMP 

(age 3-8 cartridge).. 
STORY MACHINE 

(age 3-8 cartridge 
won't run on XL/XE) 



9.95 



9.95 



9.95 



9.95 



TINKITONK! 

(age 4-8 on disk) 

COUNT AND ADD 8.95 

BEING A SMART THINKER 8.95 

ABC's 8.95 

SUBTRACTION 8.95 

SPELLING 8.95 

DEVELOP THINKING SKILLS 8.95 

SAVE $13.75!!! 

GET ALL 6 TINK! TONK! 'S TCT 

$39.95 



WEEKLEY READER 

(pre school - disk) 
STICKY BEAR SHAPES .. 26.95 
STICKEY BEAR NUMBERS 26.95 
STICKEY BEAR ABC 26.95 



MATH ENCOUNTER 



9.95 



HAYDEN 

(age 4-10 disk) 

MICRO ADD/SUBTRACT .. 9.95 

MICRO SUBTRACTION ... 9.95 

MICRO DIVISION 9.95 

(pre-school disk) 

SHAPE UP! 9.95 

MATCH UP! 9.95 



SZJF*ER SF>EC 


[p RECONDITIONED ATARI MERCHANDISE IP 


30 DAY WARRANTY 




ATARI 


BOOKS ONLY 


ATARI 


TRACKBALL 


DE RE ATARI 10.00 


SPACE AGE 


$9.95 


ATARIWRITER 10.00 


JOYSTICK 


DOS 2.5 12.95 


$5.00 


SPICE UP THE ACTION IN 


BASIC REF. 5.00 




YOUR ARCADE GAMES!! 


LOGO 10.00 
BOOKKEEPER 10.00 


GREAT GIFTS! 


400 (16K) 


600XL 


800 (48K) 


COMPUTER 


COMPUTER 


COMPUTER 


$29.95 


16K - $49.95 


$79.95 




64K - $59.95 




48K UPGRADE KIT 


INCLUDES BASIC 




$25.00 


820 40 COLUMN 






PRINTER - $39.95 




1020 COLOR 


1030 MODEM 


1010 PROGRAM 


PRINTER/ PLOTTER 


WITH 


$29.95 
40 COLUMNS WIDE 
INCLUDES PAPER AND 


RECORDER 
$29. 95 


EXPRESS! 
$24.95 


410 PROGRAM 


COLOR PEN SET 


RECORDER .-AS IS 
$9. 95 (3 for $15) 


GET ONLINE TODAY! 


ATARI 


ATARI 


DISKETTES 


NUMERIC 


BOOKKEEPER 


AS LOW AS 20 CENTS 


KEYPAD 


$14.95 - NO BOX 


10 FOR #4.00 


$7.95 


(19.95 WITH KEYPAD) 


100 FOR $29.95 


INCLUDES HANDLER 


$24.95 - IN BOX 


1000 FOR $200 


DISK- 


(29.95 WITH KEYPAD) 


MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid 
with money order, cashier check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped 
via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with cashier check or money 
2C?.l r ; $?0.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. Phone orders accepted TUESDAY THROUGH 
FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. Write or call for free 
catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



PROGRAMMING POWER 




Figure 1, A Figure 1, B 




Figure 1, C Figure 2 



HARD-WIRED 

Ray Tracing 

Shadows and reflections for your 8-bit graphics. By Michael Bjorkman 

Hard-Wired Ray Tracing creates complex pictures with multi- 
colored patterns, reflections and movable objects, not unlike the 
famed "Shiny Bubbles" demo on the Atari ST. This BASIC program 
works on XL and XE computers with at least 64K memory and 

disk drive. type-In Software M 



FEBRUARY 1989 



4 1 



If you follow the ST scene, 
you may have seen Xanth 
Park's "Shiny Bubbles" demo, 
or pictures created with Tom 
Hudson's "Ray-Trace Construction 
Set" (START, Spring 1987). These im- 
ages were made using principles of 
ray tracing, a process now brought to 
the 8-bit Atari with Hard-Wired Ray 
Tracing. 

Figure 7 is a series of pictures made 
with Hard-Wired. Note the reflections 
of the floor and ceiling on the sphere. 
The reflections were created with ray 
tracing algorithms. 

The floor and ceiling are actually 
distorted Micro Illustrator and 
Micropainter pictures. Hard-Wired 
shrinks these pictures into little 
squares, then uses these squares to tile 
the ceiling and floor. Figure 2 shows 
the Micro Illustrator picture used to 
tile the floor. 

Our frame of reference is kept as 
simple as possible by restricting the 
program to one ceiling, one floor and 
one sphere. At this level, we only need 
a tiny set of equations to handle ev- 
ery possible reflection. Hence, the 
program is called "Hard-Wired" be- 
cause all of the necessary geometric 
equations are explicitely defined, or 
"hard-wired" into the program. 

GETTING STARTED 

Use your own Micro Illustrator and 
Micropainter microscreens to create 
your own ray traced images. You'll 
need at least two — one for the floor 
tiles and one for the ceiling tiles. If 
you want to use pictures created with 
other paint programs, use the Rapid 
Graphics Converter (Antic, Novem- 
ber 1985) to convert them to a com- 
patible form. 

Next, type in Listing 1, HARD- 
WIRE.BAS, checking it with TYPO II, 
and SAVE a copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 2190, 7070- 
7130 and 8000, don't type them in. 
Instead, type Listing 2, check it with 
TYPO II and SAVE a copy When you 
RUN Listing 2, it creates these hard- 
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to-type lines and stores them in 
a file called LINES. LST To merge the 
two programs, disk users LOAD 
"D : HARDWIRE . BAS and then EN- 
TER "D: LINES. LST" Remember to 
SAVE the completed program before 
you RUN it. 

When RUN, the program asks 
several introductory questions, in- 
cluding the position of your eye and 
the location and size of the sphere. 

The first prompt asks you for the 
coordinates of your viewpoint (the 
position of your eye relative to the 
screen.) Under this coordinate system, 



values that are very "close" to the 
screen (between 0 and -200) result in 
a sphere that looks like an ellipse. 

Recommended Z-values are around 
-450. At this distance, all portions of 
the screen are relatively the same dis- 
tance from the viewpoint, and the 
sphere appears circular. 

If you don't know what values to 
use, press [RETURN] and Hard-Wired 
will use the center of the screen as 
your viewpoint. 

Next, type in the coordinates of the 
center of the sphere. Be sure to place 
the sphere below the ceiling, above 



CENTER OF SPHERE 
(Cx> Cy, C z ) 






Figure 3 



(0,0) represents the top-left corner of 
your screen, (319,0) represents the 
top-right corner, and (319,191) is the 
bottom-right corner. 

The Z-axis runs "through" your 
monitor. Objects "inside" your mon- 
itor have positive Z values; those in 
front of your monitor have negative 
values. For example, the coordinates 
(319,191,-100) name a point 100 units 
in front of the bottom-right corner of 
the screen and the point (0,0,0) is on 
the surface of the screen at the top- 
left corner. 

Type in the coordinates of your 
viewpoint. 

Remember that your viewpoint is 
always "outside" the monitor, so your 
Z-coordinate must be negative. Z- 



the floor, and not too far left or right. 
Otherwise, it will not be on the 
screen. Values near the center of the 
screen work best. 

Again, if you don't know what 
values to use, just press [RETURN] and 
Hard-wired will place the sphere in 
the upper-left part of the screen. 

Now, type the radius of the sphere. 
This number must be small enough 
for the sphere to fit entirely between 
the ceiling and the floor. Otherwise, 
the program will print COORD 
ERROR on the screen and re-prompt 
for the radius. If you can't think of a 
value, press [RETURN] and Hard- 
Wired will calculate a legal one for 
you. 

The next two questions let you 
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move the pictures within the floor 
and ceiling tiles. If you're creating a 
series of screens for a "Shiny 
Bubbles" -style animation, you can 
use this feature to scroll the floor and 
ceiling back and forth or side to side. 
The floor and ceiling move as one; 
they cannot be moved indepen- 
dently. 

If you type 160,0, the image will 
be moved left, with what would have 
been the middle of the floor tile 
moved to the left side of the tile. Typ- 
ing 0,-95 . 5 will set the bottom of the 
screen half a floor tile deeper 'Into" 
the image. 

Next, Hard-Wired asks if you want 
to use its Dimming feature. Type Y to 
use this feature, or N (or [RETURN]) 
to shut it off. 

Finally, Hard-Wired asks you for the 
microscreens you want to use for the 
floor and ceiling tiles. You can use 
Micro-Painter or Micro Illustrator 
screens. You do not have to type the 
"D:" prefix when typing their file- 
names. Once Hard-Wired loads both 
screens, the screen will go dark and 
it will begin plotting the ray-traced 
image. 

When it's done, Hard-Wired saves 
the image to a Micropainter- 
compatible file called TRACE. PIC. If 
you want to use a different filename, 
type it into line 1380. 

DIMMING 

When light reflects from an object 
in the real world, part of the light is 
absorbed and part of it is reflected. 
This makes the reflected image appear 
somewhat dimmer. 

When you use the Dimming fea- 
ture, Hard-Wired will dim the rays 
reflecting off of the sphere. This limits 
the number of colors you can use in 
your original microscreens because 
each each color will require two color 
registers — one register for the 
dimmed color and one for the pure 
color. 

Hard-Wired dims the rays by 
decrementing the color register num- 
ber. For example, a ray hitting the 



floor on a pixel with the color in reg- 
ister 3 is reflected from the sphere as 
the color in register 2. A color in reg- 
ister 0 is reflected as color register 0. 

Since Hard-Wired uses GRAPHICS 
15, a four-color mode, you may only 
want to use two of the available colors 
when drawing your microscreens. Al- 
ternatively, you may want to draw 
your original microscreens with 
several shades of a single color, such 
as white, light gray, dark gray and 
black. If you wish to change the 
colors that Hard-Wired uses, just alter 
the SETCOLOR statements in lines 
2040-2070. 

RAY TRACING 101 

Ray-traced images are made by 
reversing the path that a ray of light 
takes to your eye. A diagram of one 
path that a ray may take is shown in 
Figure 3- This ray's path begins at 
your eye (the viewpoint), passes 
through the screen and into the room 
containing the sphere. 

Once in the room the ray might hit 
the ceiling, the floor, or the sphere. 
If the ray hits the sphere, it is reflected 
onto the floor or the ceiling. In any 
case, every ray that enters the room 
eventually lands somewhere on the 
floor or ceiling. 

When the ray lands, the program 
notes the color of its "point of con- 
tact." This color is "mapped" onto the 
screen at the point where the ray 
passed through it. If we trace a ray for 
every point on the screen, eventually 
we'll have a complete picture. 

ANIMATIONS 

Once you feel comfortable with 
Hard-Wired, you can build anima- 
tions, featuring scrolling floors and 
moving spheres. 

Hard-Wired will not animate your 
microscreens; you must use a separate 
animation or page-flipping program 
instead. MovieMaker will do the job, 
however you'll have to use Antic's 
Rapid Graphics Converter to convert 
your hard-Wired pictures from Micro- 
Painter to MovieMaker format. Since 



MovieMaker pictures have half the 
resolution of Micro-Painter pictures, 
your microscreens will appear 
coarser. However, you'll be able to fit 
twice as many screens into an ani- 
mation. 

There are also many public domain 
page-flipping programs. They're also 
simple to write. See Dave Plotkin's 
Page Flipping, A Racy Tutorial 
(Antic, January 1984) and Ian Chad- 
wick's 130XE Memory Management 
(Antic, November 1985) for more in- 
formation on page-flipping. 

Hard-Wired's screen is turned off to 
hasten the computations by 15 to 30 
percent. Press [OPTION] to see the 
picture as it is being drawn. Using 
Atari BASIC, each image takes about 
two hours to calculate. You can 
achieve much faster speeds with 
BASIC XE's "FAST" mode or Tur- 
boBASIC. 

PROGRAM TAKE-APART 

Lines 1000 to 1640 contain the 
"hard-wired" ray-tracing equations 
needed to map the pixels onto the 
sphere, floor and ceiling. 

Lines 1650 to 1780 use INPUT state- 
ments to get the coordinates of the 
viewpoint and the sphere, the sphere's 
radius, and the displacement of the 
floor and ceiling tiles. 

Lines 1880 to 2010 load the two 
microscreens into RAM. One 8K 
block of memory is set aside for each 
screen, and a third block is used to 
plot the final ray-traced image. All in 
all, Hard-Wired is manipulating three 
complete microscreens and three sep- 
arate display lists. 

Hard-Wired finds the spot where 
the ray hits the floor or ceiling, then 
uses the LOCATE command to deter- 
mine the color of the pixel it hit. 
Hard-Wired then finds the spot where 
the ray passed through the screen and 
colors it with this color. A 



Michael Bjorkman of Seattle, Washing- 
ton is making his first appearance in 
Antic. 

Listing on page 30 
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EQUIVALENCE 

New way to speed up your BASIC programs. 



By Doug White 



Equivalence teaches intermediate-level program- 
mers how to use a powerful technique that speeds 
up common BASIC operations by as much as 150 
percent. Included BASIC demonstration programs 



FIGURE 1 




(RAMdisk) 


ATARI BASIC 


Dl: 


D8: 


INITIALIZE M(3334) 
INITIALIZE S$(20004) 


39.50 
0.33 


39.50 
0.33 


M(3334) -> D n : ARRAY. DAT 
S$(20004) -* Dn: STRING. DAT 


99.03 
83.95 


53.58 
5.73 


Dn : ARRAY. DAT -+ M(3334) 
Dn:STRING.DAT -> S$(20004) 


91.95 
19.48 


64.65 
0.44 



Atari BASIC is a very friendly pro- 
gramming language, but certain oper- 
ations can be rather slow. Disk I/O, in- 
teger calculations, FOR-NEXT loops, 
etc. all involve floating-point calcula- 
tions requiring six storage bytes for 
each variable used. These operations 
are slow because they require many 
integer-to-floating-point and floating- 
point-to-integer conversions. 

String operations, on the other 
hand, are quite speedy. "Equivalenc- 
ing" lets you apply these speedy oper- 
ations to other types of data. 
Equivalencing can make numeric disk 
I/O and other operations run up to 
150 times faster. 

EQUIVALENCING 

Equivalencing simultaneously 
treats blocks of data as string data and 
as floating-point data. 

Your Atari stores strings and num- 
bers as bytes in RAM. BASIC uses a 
series of tables to remember which of 
these bytes are part of strings and 



which bytes represent floating-point 
numbers. By changing these tables 
you can take a series of bytes that rep- 
resent a floating-point number and 
make BASIC treat these bytes as a 
string as well as a number. 

These tables also contain the loca- 
tions of all the variables in your pro- 
gram. They work like an address 
book. Once BASIC determines 
whether a series of bytes contain a 
string or a floating-point number, it 



goes back to these tables to find the 
location of these bytes. 

Change these tables and you 
change the memory locations that 
BASIC will search for the values of 
your variables. It's like telling your 
mother-in-law that you moved to Bor- 
neo. The next letter she sends you will 
end up in Indonesia. 

By altering the values in these ta- 
bles, you can take any block of mem- 
ory and treat it like a string. 
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Equivalencing techniques let you 
take advantage of BASIC'S speedy 
string operations while avoiding time- 
consuming floating-point conver- 
sions. 

SPEED DEMOS 

Listing 1 uses sound to illustrate this 
dramatic improvement in speed. Type 
in Listing 1, EQUIV1.BAS, check it 
with TYPO II and SAVE a copy to 
disk. Be sure to remove the TYPO II 
program, as described in the TYPO 
II instructions, before you RUN the 
program. 

The first part of the program plays 



tables, fooling BASIC into thinking 
that S$ has moved to a different ad- 
dress (the audio control registers). 

The next time BASIC looks for the 
bytes in S$, it'll end up at the audio 
control registers. Since BASIC thinks 
that S$ is located at the audio control 
registers, anything we put into S$ will 
appear in these registers. 

Here's an example. If we tell BASIC 
that S$ begins at memory location 
53760 (the address of the first audio 
control register) then: 

SJ(1)="A" 

ASC('A") = 65 
has the same effect as (but much 



reads it back again. The first time the 
program does this, it uses GET, PUT 
and other conventional methods of 
handling data. Then, the program 
does the same thing all over again, but 
this time it uses speedy equivalenc- 
ing techniques. 

The entries in Figure 1 are the run 
times in seconds for each part of List- 
ing 2 when M() has 3,334 elements. 

Type in Listing 2, EQUIV2.BAS, 
check it with TYPO II and SAVE a 
copy to disk. Be sure to remove the 
TYPO II program, as described in the 
TYPO II instructions, before you RUN 
the program. 



work on all 8-bit Atari computers of any memory 
size, with disk drive* The article also explains how 
to use the Turbo BASIC XL language for even 
greater speed. 



FIGURE 2 




(RAMdisk) 


Turbo BASIC XL 


Dl: 


D8 


INITIALIZE M(3334) 
INITIALIZE S$(20004) 


9.55 
0.27 


9.55 
0.27 


M(3334) -> Dn : ARRAY. DAT 
S$(20004) -> Dn : STRING. DAT 


84.72 
52.97 


22.18 
0.40 


Dn : ARRAY. DAT -> M(3334) 
DmSTRING.DAT -* S$(20004) 


50.70 
19.32 


21.88 
0.42 



all four voices using BASIC'S SOUND 
command. 

This part of the program can be 
slightly accelerated by POKEing the 
sound data directly into the audio 
control registers (memory locations 
53760-53768). 

The second part of the program 
uses an equivalenced string to fill all 
audio control registers at once. First, 
the program DIMensions a string 
called S$. Then it alters the variable 



quicker than): 
POKE 53760,65 

We've just equivalenced a string 
variable to a specified block of 
memory — the audio control registers. 
Listing 2 shows you how to equiva- 
lence a string to a numeric array to 
speed up data handling. 

DATA HANDLING 

Listing 2 creates a sample floating- 
point array, M( ), writes it to disk and 



When RUN, the program asks you 
to choose the size of the sample 
floating-point array. As written, the 
program cannot handle such arrays 
DIMensioned above 4,000. 

Next, the program equivalences ar- 
ray M( ) to a string, SI, and begins fill- 
ing M( ) with numbers. Since M( ) and 
S$ are equivalenced, every value 
placed in M( ) also appears in S$, but 
in a slightly different form. 

Since BASIC stores numbers as six- 
byte binary coded decimals (BCD), 
your equivalenced string requires 6 
characters for each floating-point 
number. For example, the number 
41.4243444 is internally represented 
as @ABCDE. 

So if you wanted to equivalence an 
array containing 3,334 numbers, 
you'd need a string DIMensioned to 
(6x3,334) or 20,004. 

TIMING 

The program also times itself. The 
first column of entries in Figure 1 is 
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for my own disk drive — a single den- 
sity Indus GT. The times you get may 
be different if you use a different 
brand of disk drive. The second 
column in Figure 1 contains run times 
for a RAMdisk. 

The first entry in Figure 1 is the 
number of seconds it takes to write 
3,334 elements (20,004 bytes) from 
M() to a disk file named Dl: AR- 
RAY. DAT If the same data gets writ- 
ten as a 20,004-byte string to a disk 
file named Dl -.STRING. DAT, the run 
time decreases from 99. 03 seconds to 
83.95 seconds. If you write the data 
to RAMdisk files, writing to the string 
is almost ten times faster than writ- 
ing to the floating-point array, 5 3. 5 8 
seconds and 5. 73 seconds, respec- 
tively. 

The increase in the speed of in- 
itializing the arrays is even more im- 
pressive. Ordinarily you'd initialize a 



floating-point array with a FOR-NEXT 
loop, such as in line 540 of Listing 2. 

You can do the same thing with an 
equivalenced string in two quick 
steps. Assign the first element the 
regular way, M(0) = -1. Since S$ is 
equivalenced to M( ), this assignment 
will also change the first six bytes of 
S$. 

Now you can copy the first six bytes 
throughout the rest of the string with 
the statement: 

S$(7) = S$(1) 

This statement will change every 
value in M() to -1. The equivalenced 
string method is 120 times faster than 
the FOR-NEXT loop for an array of 
3,334 elements. 

The bad news is that BASIC lacks 
a speedy way to read D 1 : STRING. DAT 



back into S$. So we resort to a little 
machine language. 

The subroutine beginning at line 
3000 in Listing 2 uses your Atari's 
built-in CIO (Central Input/Output) 
routines to read a disk file into a string 
at machine language speed. 

In this routine, AD is address of the 
string. It is broken into low- and high- 
bytes in line 3000. The expression 
POKE I + 8,255:POKE 1 + 9,255 tells 
CIO to read as many bytes as it can, 
up to 65,535 bytes, or until it reaches 
the end of the file. Line 3030 contains 
the USR function which starts the CIO 
routines. When CIO is through, line 
3040 calculates the number of bytes 
which have been read and stores it in 
N. 

To learn more about CIO, read the 
CIOV section (location 58454) of Ian 
Chadwick's "Mapping The Atari" 
($16.95, Compute! Publications). 



TURBO BASIC XL 

If you own an XL or XE, Turbo 
BASIC XL also has the fast I/O com- 
mands you need. 

Turbo BASIC XL is by Frank Oz- 
trowski, of West Germany, author of 
Michtron's GFA BASIC for the Atari ST 
Turbo is a public domain BASIC inter- 
preter and compiler that offers a 
more powerful programming envi- 
ronment. It's available on Com- 
puServe's 8-bit Atari Forum and from 
many Atari users groups. 

Turbo BASIC supports structured 
programming, provides new I/O, edit- 
ing, and DOS functions, and RUNS 
several times faster than Atari BASIC. 
Unfortunately, it does not work on 
Atari 400 or 800 computers. 



Turbo BASIC XL has %GET and 
%PUT commands to read and write 
numeric data to and from disk, and 
BGET and BPUT to read and write 
string data to and from disk. Substitut- 
ing these commands for the Atari BA- 
SIC commands in Listing 2 will give 
you the run times listed in Figure 2. 
The Turbo BASIC commands and 
their Atari BASIC equivalents are in 
lines 630-640, 730-740, 1070-1080 
and 1200-1210. 

Turbo BASIC is somewhat faster 
than Atari BASIC for the floating-point 
routines. Reading into S$ from RAM- 
disk or writing S$ to RAMdisk takes 
only four tenths of a second in Turbo 
BASIC! If the string is a little smaller, 
such as 8,138 bytes (the size of a 
GRAPHICS 8 screen & display list) the 
read and write times are less than two 
tenths of a second. Reading or writ- 
ing a GRAPHICS 0 screen (992 bytes) 
to or from RAMdisk takes one tenth 
of a second. 

The net effect is that programs us- 
ing Turbo BASIC, RAMdisks and 
equivalencing will transfer data 130 
to 150 times faster than programs 
which don't use these techniques. If 
you add the extra time that a physical 
disk drive takes, the increase in speed 
is two to five times, still a significant 
increase. 

HOW IT WORKS 

Let's take a closer look at the 
way BASIC handles variables. In 
Atari BASIC (and all compatible 
BASICs) variables are stored in tables. 
The three tables of interest here are 
the variable name table, the variable 
value table, and the string and array 
table. 

VARIABLE NAME TABLE 

The variable name table is merely 
a list of all of the names of the varia- 
bles used in your program. Instead of 
putting a space between the variable 
names (and wasting a byte), the last 
character in each name is stored as an 
inverse character. If our program con- 
tains the variables — TOTAL, AR- 



Equivalencing avoids 
time-consuming floating- 
point conversions. 
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RAY(5), and NAME$(10)— the variable 
name table would look like this: 

TUT All ARR A YEN AM EH 

Atari BASIC recognizes three classes 
of variables — scalars, floating-point 
arrays and strings. If the last charac- 
ter in the variable name is an inverse 
letter or number, as in TOTAL, the 
variable is a simple floating-point 
number called a scalar. 

If the last character is an inverse 
open parenthesis, as in ARRAY, the 
variable is a floating-point array. And 
if the last character is an inverse dol- 
lar sign, as in NAMES, it is a string 
variable. 

The address of the beginning of the 
variable name table is stored in mem- 
ory locations 130 (low byte) and 131 
(high byte). Calculate the starting ad- 
dress of this table with the equation: 

PEEK(130) + PEEK(131) * 256 



The ending address of the variable 
name table is one less than the num- 
ber stored in memory locations 132 
and 133. 

VARIABLE VALUE TABLE 

The variable value table contains 
type and size information about each 
variable. The starting address of the 
variable value table is kept in mem- 
ory locations 134 and 135. 

Each variable in the variable name 
table has a corresponding eight-byte 
block of information in the variable 
value table. These blocks are kept in 
the same order as the names in the 
variable name table. 

The first byte in each block 
represents the variable type. A 0 
represents a scalar, 64 and 65 denote 



floating-point arrays, and a 128 or a 
129 represent a string variable. 

The second byte of each block is 
the variable number (0 — 127) as as- 
signed by BASIC. 

If the variable is a scalar, the remain- 
ing six bytes contain its binary coded 
decimal (BCD) value, as described 
above. 

If the variable is a floating-point 
array or a string, the third and fourth 
bytes contain the location of the array 
(or string). This location is not a 
memory address, but its offset into a 
table containing all the strings and 
arrays used in your program. This ta- 
ble, called the string and array table, 
is discussed later in this article. 

If the variable is a floating-point 
array, the fifth and sixth bytes are 
equal to one plus the first DIMension 
size, and bytes seven and eight are 
equal to one plus the second DI- 



Mension size. 

For example, the statement DIM 
ARRAY(7,13) would set bytes five and 
six equal to 7 + 1, or 8, and bytes seven 
and eight would equal 13 + 1, or 14. 
(If ARRAY was a one-dimensional 
array, bytes 7 and 8 would equal 0 + 1, 
or 1.) 

If the variable is a string, the fifth 
and sixth bytes contain the current 
length of the string. The seventh and 
eighth bytes contain the DIMensioned 
size of the string. 

For example, when BASIC 
processes the statement DIM 
NAME$(10), it sets bytes five and six 
to zero because the LENgth of NAMES 
is zero. (Bytes five and six remain at 
zero until your program puts some- 
thing into NAMES.) 



Bytes seven and eight would equal 
ten, the DIMensioned size of the 
string. 

STRING & ARRAY TABLE 

The string and array table contains 
the contents of all the strings and 
arrays used in your program. The 
starting address of this table is kept in 
memory locations 140 and 141. 

Each time your program introduces 
a new string or array, its contents are 
appended to the string and array ta- 
ble. BASIC keeps track of these varia- 
bles by noting their offset from the be- 
ginning of the string and array table, 
and storing this number in the vari- 
able value table. 

In other words, the first array is lo- 
cated at the beginning of the string 
and array table and has an offset of 
zero. The second array's offset would 
be equal to the size of the first array. 

HOW TO EQUIVALENCE 

These variable tables let BASIC give 
each variable a unique set of data that 
points to a unique area of RAM. When 
you equivalence two variables, you 
manipulate these tables so that the 
two variables share the same area of 
RAM. Scalars, arrays, and strings may 
be equivalenced in any combination, 
as long as the equivalenced memory 
locations do not overlap other 
variables. 

Once you understand how the vari- 
able tables work, equivalencing is 
merely a matter of altering the eight- 
byte blocks in the variable value ta- 
ble. Just copy the array's offset and 
dimension information into the off- 
set and dimension information of the 
string. Here's an example: 

NEW 

DIM AS(1),B(2) 

After BASIC processes these state- 
ments, the variable name table will 
look like this: 

A 13 BO 

And the variable value table will 
look like this: 

tiMffflDlilBn 



Floating-point calculations 
are slow compared to string 
operations. 
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Which is equivalent to: 
129 0 0 0 0 0 1 0 
(entry for AS) 

65 1 1 0 3 0 1 0 
(entry for B( )) 

Let's interpret each eight-byte block. 
In the first block, the first byte, a 129, 
tells us that the variable is a string. The 
second byte, a 0, means that it is vari- 
able number 0— the first variable in 
your program. It also means it's the 
first entry in the variable name table, 
At. 

Bytes three and four, also zeros, 
mean that its offset from the begin- 
ning of the string and array table is 
zero. 

Since no elements have been en- 
tered, A$ has a LENgth of 0 (bytes 
5 and 6 = 0), but has been DI- 
Mensioned to 1 (byte 7=1 and byte 
8 = 0). 



The second block contains infor- 
mation about the second variable. 
Here, the first byte, a 65, tells us that 
the variable is a numeric array The 
second byte, a 1, means that it is vari- 
able number 1 — the second variable 
in your program. It also means it's the 
second entry in the variable name ta- 
ble, B(). 

Bytes three and four, a one and a 
zero, mean that the B( ) offset from the 
beginning of the string and array ta- 
ble is one — the maximum size of the 
previous variable A$. 

Bytes five through eight contain the 
variable's DIMensioned size. BASIC ar- 
rays may have up to two indexes, and 
both sizes are stored here. Bytes five 
and six show the DIMensioned size 
of the first index + 1. Bytes seven and 



eight show the DIMensioned size of 
the second index + 1. 

In this example, the DIMensioned 
size of the first index is 2. Byte five 
contains (2 + 1), or 3, and byte six con- 
tains zero. 

Since there is no second index, its 
value is 0. Byte seven contains (0 + 1), 
or 1, and byte eight contains zero. 

To equivalence A$ and B( ), copy 
bytes three through eight of block two 
into bytes three through eight of block 
one. The variable value table will now 
look like this: 

129 0 1 0 18 0 18 0 

(entry for AS) 

65 1 1 0 3 0 1 0 
(entry for B()) 

Block two has not changed, but 
block one now points to the same 
memory locations as block two. Both 
now have the same offset into the 



string and array table. 

You'll notice that bytes five through 
eight were not copied as you'd have 
expected. These bytes, describing the 
DIMensioned size of the array, ap- 
pears to have jumped from 3 to 18! 

Nothing's really changed, though. 
As an array B( ) may hold up to three 
floating point numbers. Since your 
Atari needs six bytes to store a single 
floating point number, it needs 18 
bytes to store three of them. Thus, if 
A$ and B( ) are to use the same piece 
of RAM, A$ must be 18 bytes long. 

Since A$ and B( ) now occupy the 
same 18 memory locations, any 
change in A$ will affect B( ) and vice 
versa. 

Substring Array Element 
A$( 1, 6) < > B(0) 



A$( 7,12) < > B(l) 

A$(13,18) < > B(2) 

A$ was originally DIMensioned for 
one element for the sake of simplic- 
ity. If AS had a DIMension of 600, its 
new offset would be 600 after 
equivalencing. 

Bytes 0 to 599 of the string and ar- 
ray table would be inaccessible 
memory. 

Inaccessible A$ and B() 
Memory stored here 
Bytes 0 to 599 600 to 617 
If you don't like wasting this much 
memory, you can alter the variable 
value table so that the offset and 
DIMensions of both A$ and B() in- 
clude all 618 bytes. 

AS would then have a DIMension 
of 600 + 3 * 6, or 618. B() would 
have a DIMension of 600/6 + 3, or 
103. Wasting memory will usually not 
affect your program. However, you 
should be aware of some potential 
problems with equivalenced 
variables. 

POTENTIAL PROBLEMS 

Losing your place. This happens 
when you incorrectly equivalence 
your variables. This can happen when 
creating the equivalence, or whenever 
the program processes a misplaced 
CLR statement. 

A CLR statement zeroes all of the 
variables and sets the offsets, string 
lengths, and array dimensions to zero 
in the variable value table. The equiva- 
lence between variables is destroyed. 

When you re-dimension the strings 
and arrays, BASIC once more assigns 
a unique offset for each. Each variable 
will control its own part of memory 
again. 

Finally, remember that the order of 
your variables in the variable tables is 
subject to change whenever you LIST 
your program to disk. The 
SAVE/LOAD commands preserve your 
program's original variable name ta- 
ble. The LIST/ENTER commands do 
not. When a LISTed program is EN- 
TERed, BASIC builds a new variable 
continued on page 56 



The increase in the 
speed of initializing arrays 
is impressive. 
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Error 
Trapping 

in Atari BASIC 

Crashes that you can prevent. By Heidi Brumbaugh, START Programs Editor 



Of the hundreds of program submis- 
sions Antic receives each year, many 
which are otherwise excellent must 
be rejected because they lack error 
trapping. No matter how thoroughly 
you test your program, errors can still 
crash it during operation simply be- 
cause the user isn't as familiar with it 
as you are. This article will show you 
some error-trapping routines de- 
signed to make everybody's life easier. 

Before sending your program out 
into the world, ask yourself, "Will 
something as simple as a user's mis- 
interpretation of a prompt make the 
listing crash? 

You've already done the hard 
part — making your program under- 
standable to the machine. Now you 
just need to fine-tune it for sensitiv- 
ity to any off-the-wall keystroke com- 
binations the user tries. 

SET A TRAP 

To make sure our program — not the 
operating system — takes control 
when an error occurs, we must first 
tell the computer, "If there's an error, 
let the program handle it." Predict- 
ably, this is called error trapping. The 
BASIC syntax we need to use is: TRAP 




linenum. 

Here linenum is the program line 
for the computer to go to if an error 
occurs. At linenum we analyze the sit- 
uation and act accordingly. Put this 
statement at the beginning of your 
program to enable error trapping be- 
fore any problems crop up. 

The trap must be reset each time an 
error occurs. Otherwise the operating 
system resumes control the next time 
there's an error. A good place to reset 
the trap is at the first line of your error- 
handling routine — but make sure it 
doesn't have any bugs. If you always 
put a TRAP statement there, you 
won't have to worry about the oper- 
ating system taking over when you 
don't want it to. 



You don't need to have an error to 
declare a new TRAP statement. When 
the computer encounters a TRAP 
statement, it remembers only the new 
line number and goes there if an er- 
ror occurs. Thus we can have one cen- 
tral location for handling errors. Or 
we can reset the trap and go to differ- 
ent error-handling routines depend- 
ing on where the error occurs. We'll 
use the second method in these ex- 
amples, but you'll learn how to do it 
either way. 

Of course, you won't always be able 
to deal effectively with an error. Un- 
foreseen circumstances do tend to 
arise. The BASIC equivalent to throw- 
ing your hands up and telling the 
operating system, "I don't know what 
to do— you handle it" is to set a TRAP 
statement to an illegal line number. 
(BASIC allows line numbers between 
0 and 32767.) Most programmers use 
40000. This shuts off any previous 
TRAP statements. 

Let's experiment, using the exam- 
ple of a user trying to write to a write- 
pro tected disk. We can handle this 
easily by asking the user to remove the 
write-protect tab and try again. 

100 TRAP 30000 
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110 OPEN #1,8,0,"D:DUCKS.DAT" 

120 ? #l,"Donald" 

130 ? #l,"The, Howard" 

140 ? #l,"Daffy" 

145 ? #l,"Sitting" 

150 CLOSE #1 

160 ? "Names entered." 

170 END 

30000 TRAP 30000.REM Reset trap 
30010 CLOSE #1:REM Close 
channel 

30020 ? :? "Disk is write-pro- 
tected.":? 

30030 ? "Please remove write-pro- 
tect tab and" 

30040 ? "put disk back in drive.":? 

30050 ? "Press any key to con- 
tinue": POKE 764,255 

30060 IF PEEK(764)=255 THEN 
30060:REM Wait for keypress 

30070 POKE 764,255:REM Clear 
last key pressed 

30080 GOTO 110:REM Try again 

This program works fine if it en- 
counters the error we've anticipated. 
However, the key to error trapping is 
to consider every possible error. Here, 
the disk drive may be empty or dis- 
connected, or the disk may be full or 
even have a bad sector. 

The computer stores the number of 
the last error encountered in memory 
location 195. We can use this infor- 
mation to modify our error-trapping 
routine. 

100 TRAP 30000 

110 OPEN #1,8,0 ,"D:DUCKS.DAT" 

120 ? #1 "Donald" 

130 ? #l,"The, Howard" 

140 ? #l,"Daffy" 

145 ? #l,"Sitting" 

150 CLOSE #1 

160 ? "Names entered." 

170 END 

30000 TRAP 30000.REM Reset trap 

30010 CLOSE #1:? :REM Close 
channel 

30015 ERR = PEEK(195) 

30020 IF ERR = 144 THEN 
30150-.REM Disk is write-protected 

30030 IF ERR = 138 THEN 30200: 
REM Device does not respond 

30040 IF ERR = 139 OR ERR =164 
THEN 30250:REM Having odd 



problems 

30050 IF ERR = 140 OR ERR =142 
OR ERR = 143 THEN 30300:REM Disk 
may be damaged 

30060 IF ERR = 162 THEN 30350: 
REM Disk full 

30070 IF ERR = 167 THEN 30400: 
REM File locked 

30080 IF ERR = 169 THEN 30450: 
REM Directory full 

30090 ? "Error number ";ERR ; " has 
occurred.":GOTO 30500:REM Don't 
know what's happened 

30150 ? "Disk is write-protected.":? 

30160 ? "Please remove write-pro- 
tect tab and" 

30170 ? "put disk back in drive." 

30180 GOTO 30500 

30200 ? "Device is not 
responding." 

30210 ? "Check disk drive cables 
and try again." 




30220 GOTO 30500 

30250 ? "I'm having trouble open- 
ning file." 

30260 ? "I suggest you check disk 
drive" 

30270 ? "and try again." 

30280 GOTO 30500 

30300 ? "Your diskette may be 
damaged." 

30310 ? "I suggest you try again or 
use" 

30320 ? "another disk." 

30330 GOTO 30500 

30350 ? "Disk is full." 

30360 ? "Please insert a new disk 
& try again." 

30370 GOTO 30500 

30400 ? "You already have a 
DUCKS.DAT file" 

30410 ? "and it is locked. Insert 



new disk" 

30420 ? "and try again or abort 
operation." 

30430 GOTO 30500 

30450 ? "You can only have 64 files 
on a disk." 

30460 ? "Please insert new disk and 
try again" 

30470 ? "or abort operation." 

30500 ? :? "Press R to retry; A to 
abort." 

30510 OPEN #1,4,0,"K:":REM 
Open keyboard for input 

30515 GET #l,OPT:CLOSE #1:REM 
Get option and close channel 

30520 IF OPT=65 OR OPT=97 
THEN 170:REM Abort 

30530 IF OPT=82 OR OPT=ll4 
THEN 110:REM Try again 

30540 GOTO 30500:REM Wait for 
A or R 

Granted, you normally wouldn't 
want such a complicated error- 
handling routine for so simple a pro- 
gram. But it's a good example of how 
error trapping can make a program 
easy for anyone to run. We could even 
make the routine more complicated 
by having the program offer to unlock 
a locked file or delete some files if the 
disk or directory is full. The main 
thing is to be familiar with these 
techniques. 

PREVENTIVE 
MAINTENANCE 

You can also use preventive pro- 
gramming techniques to make sure 
that some errors never occur. Con- 
sider this short program to divide two 
numbers: 

100 ? "Numerator"; INPUT N 
110 ? "Denominator"; INPUT D 
120 ? 'The answer is:"; N/D 
130 GOTO 100 

This program will crash if the user 
enters zero as a denominator. While 
we could add a TRAP statement and 
a complicated error-handling routine, 
it's much simpler to check the input 
before the division ever occurs: 

115 IF D = 0 THEN PRINT "Division 
by zero is a no-no.":GOTO 110 

Another problem happens when 
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the user tries to put too many num- 
bers into an array. Rather than check 
for an array dimension error we can 
avoid a problem by counting the 
numbers as they are entered. 

100 TRAP 40000:REM Let the oper- 
ating system handle any errors 

110 DIM NUMS(100):I = 0 

120 IF 1 = 100 THEN ? "I can't ac- 
cept any more numbers.": GOTO 200 

130 1 = 1 + 1:? "What is number";I; 
"(or 999 if done)"; 

140 INPUT N 

150 IF N = 999 THEN ? "Numbers 
entered.":GOTO 200 
160 NUMS(I) = N 
170 GOTO 120 
200 END 

ADVANCED TECHNIQUES 

Believe it or not, errors aren't al- 
ways bad. Error codes often show 
what's going on inside the machine. 
After we're comfortable with error- 
handling routines, we can use this in- 
formation to make our programs 
more user-friendly. 

Before we go on, we need to know 
how to find out where in the program 
an error has occurred. The line num- 
ber where the error occurs is stored 
in memory locations 186 and 187. To 
get the value, we'll create a variable 
ERL and assign it the value PEEK(187) 
*256 + PEEK(186). 

Atari BASIC returns a type mis- 
match error if it expects a number to 
be entered, but instead the user sim- 
ply presses the [RETURN] key. This 
is because it interprets the [RETURN] 
as a single character string. Knowing 
this, let's set up a loop that accepts 
numbers until a [RETURN] is pressed. 

100 TRAP 30000: REM Set error 
trap 

110 DIM NUMS(100):I = 0 

120 IF 1 = 100 THEN ? "I can't ac- 
cept any more numbers.": GOTO 200 

130 1 = 1 + 1:? "What is number";I; 
"(or <CR> if done)"; 

140 INPUT N 

150 NUMS(I) = N:GOTO 120 
160 ? "Numbers entered." 
200 END 



30000 TRAP 40000:REM Trap 
turned off 

30010 ERR = PEEK(195):ERL = 
PEEK(186) + PEEK(187) * 256 

30020 IF ERR = 8 AND ERL = l40 
THEN 160 

30030 ? "Error"; ERR; "at line" 
;ERL; "has occurred.":GOTO 
200:REM Give up 

Notice that we set a TRAP 40000 
at the beginning of the error-handling 
routine. This is redundant because the 
error which caused you to hit that line 
would disable the error trapping any- 
way. However, it makes this program 
much easier to read and modify. 

Another application is to use error 
trapping to see when a list of DATA 
statements is exhausted. The pro- 
grammer usually knows how much 
data to expect, so you can put your 
READ statement in a loop or check 




each item READ against a number like 
999 or a string such as "END" that sig- 
nifies the end of the data. However, 
you might want to let the user cus- 
tomize the list, in which case having 
to remember how to end it is clumsy. 

An example might be a list of names 
which can be modified depending on 
who's using the program. In the fol- 
lowing program segment, imagine 
we're READing the names of people 
who are sharing pizza. Later, we'll 
print a list of who owes how much 
money. To do this, read the names 
into a string array until error 6 — Data 
List Exhausted — occurs. 

100 TRAP 30000 

110 DIM X$(10),EATER$(200):I = 0: 
REM Allow for 20 names of length 10 
each. 



115 EATERS = " ":EATERS(200) = 
EATER$:EATER$(2) = EATERS :REM 
Set array to spaces 

120 IF I = 20 THEN ? "Sorry, list ig- 
nored after";X$:GOTO 200:REM Too 
many names 

130 READ X$ 

135 EATER$(I* 10 + 1,1* 10 + 10) = 

X$ 

140 I = I + l:GOTO 120 
160 ? "The names are in the array." 
200 REM Continue with program. 
300 END 

20000 DATA Charlie,Gregg,Nat, 
Carolyn, Marta 

20010 DATA Andy,Heidi,Tom 

30000 TRAP 40000 

30010ERR = PEEK(195):ERL = 
PEEK(187) * 256 + PEEK(186) 

30030 IF ERR = 6 AND ERL = 130 
THEN 160 

30040 ? "Error " ; ERR ; " at line 
";ERL ; " has occurred.": GOTO 300: 
REM Give up 

The number of ways to incorporate 
error trapping is virtually unlimited. 
If you're getting data from a disk, you 
can use the above idea to read from 
the file until you get an error 136— 
End of File. If your program is going 
to write a file, a quick way to tell if 
the file already exists is to try to read 
it first. If it's not there you'll get error 
number 170 — File Not Found. Using 
error trapping to check for this is 
easy — and may save someone from 
overwriting an important file. 

Like any aspect of programming, a 
good error-handling routine should 
be "invisible" to the user. If you have 
an idea of which kinds of errors to ex- 
pect, you can troubleshoot potential 
problems without the user ever 
knowing something's gone wrong. 
On the other hand, if your error- 
handling routine can't figure out what 
to do, you can at least print out error 
messages in plain English and give the 
user a chance to recover from the 
problem without a crash. Whatever 
the situation, error trapping is an ef- 
fective way to make your programs 
polished, professional, and easier to 
run. A 
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AN ATARI GROWS ORCHIDS IN TEXAS. BY JOHN LITTLE 

eal-World Interface is a hardware-software project that 
can control a wide variety of electronic equipment 
with your Atari. This BASIC program works on all 8-bit 
Atari computers of any memory size, with disk or cassette. 

The idea of using a computer to 
control real objects always fascinated 
me. Last summer I decided that some- 
thing had to be done about the prob- 
lem of low humidity in my orchid 
greenhouse and my Atari turned out 
to be part of the solution. 

If you don't have a greenhouse, 
stick around anyway. The first link be- 
tween my Atari and my greenhouse 
is a simple relay that can be used for 
many different applications. And pro- 
gramming the Atari to operate it is 
really easy. Also, the real-time clock 
routine that I use for timing relay 
operations can easily be incorporated 
into other programs. 

The conventional approach to my 
low-humidity problem would have 
been to use a humidistat to control a 
solenoid valve (operating on house 
current) to control water flow to mis- 
ters or foggers. But there are other 
considerations here in Austin, Texas 
where high heat can be a serious 
f problem. I had been searching for 
I some type of emergency system to 
I cool the plants in case of power fail- 
ure, and the best answer seemed to 
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be drenching them in fog. 

The problem was how to generate 
the fog with no electricity. At the 
same time I decided to install misters 
for humidity, I came across an ingen- 
ious battery-operated water valve. I 
knew immediately that I had found 
not only a means of solving my hu- 
midity problems, but also the key to 
making the elusive emergency system 
work. 

This valve comes with a program- 
mable electronic module to control 
when the water will be on. It was sim- 
ple to remove the module — which is, 
of course, just an elementary 
computer — and connect the valve to 
a much more complex computer, my 
Atari. Originally, the valve could be 
set for a maximum of four time 
periods per day, with the shortest 
time period being one minute. But 
with the Atari, I can turn the misters 
on for just seconds, and I can do it 
as many times a day as I want. 

Just as important, with this setup 
I can be sure the misters don't come 
on when they shouldn't. Orchids 
should not be wet when the temper- 
ature is too low, and they should al- 
ways be dry by nightfall. A thermostat 
placed in the circuit between the valve 
and the Atari makes sure that the mis- 
ters don't come on if the temperature 
is too low. And this program lets me 
choose the earliest and latest times for 
the misters to come on. 

RELAY OPERATIONS 

Finally, the circuit and program are 
set up so that instead of operating the 
relay to turn on the misters, as you'd 
expect, the relay shuts off the misters 
when it operates and turns them on 
when it releases. If the power fails and 
the Atari goes down, the relay releases 
and the misters stay on, providing 
some relief from the heat until power 
is restored. Then, because of the in- 
ternal design of the joystick ports, the 
relay will operate automatically and 
shut off the water without needing a 
program to tell it to. And the green- 
house fans can start drying things off. 



The first step in controlling the re- 
lay is to configure the joystick port — 
the two jacks that the joysticks plug 
into. PORTA refers to Jacks 1 and 2. 
On the early Atari 400 and 800 com- 
puters, PORTB refers to Jacks 3 and 4. 

These ports use memory-mapped 
I/O (input/output), which means each 
port corresponds to a one-byte mem- 
ory address. Pins one through four in 
jack 1 correspond to bits zero through 
three at address 54016 (PORTA), and 
the same four pins in jack 2 corre- 
spond to bits four through seven at 
that address. By manipulating the data 
at that address with POKEs in BASIC, 
we can control whether each one of 
those pins is used for input or output, 
and what data we send. 

Now we configure for input or out- 
put. Address 54018 (PACTL) is the 
PORTA controller. When bit 2 of 
PACTL is set to 0, any value POKEd 
into PORTA determines whether the 
individual pins of the port will be out- 
put or input pins. When bit 2 is set 
to 1, any value POKEd into PORTA is 
considered data for output. 

Line 340 of the Real-World Interface 
program shows how bit 2 is set to 
zero. Its normal state is 1. To set it to 
0, we subtract 4 (the decimal value 
represented by bit 2) from the origi- 
nal contents of PACTL, after saving the 
original contents in ORIG. 

POKE PORTA with 255 to set all 
eight I/O pins for output. Finally 
POKE ORIG back into PACTL so that 
PORTA can send whatever data is 
POKEd into it. 

Output from the joystick ports is bi- 
nary, which means it can be in one 
of only two possible states: zero and 
one (also called low and high). Your 
Atari interprets these states as ground 
and + 5-volts. Each pin that has a 0 
in its corresponding bit in PORTA will 
send a zero or ground. Each pin with 
a 1 in its corresponding bit will out- 
put + 5 volts. The + 5 volts is how we 
operate the relay! 

When you turn on your Atari, each 
pin has + 5 volts. If your project is 
plugged into the jack when you turn 



your Atari on, the relay will operate. 
Then, when you configure the port 
for output, the pins will automatically 
drop to ground and your relay will re- 
lease until you POKE the appropriate 
value into PORTA. This must be kept 
in mind when planning how your 
project will operate. In my case, I must 
remember to shut off the water valve 
in my greenhouse or the misters will 
come on when I start the program. 

THE CIRCUIT 

Before we get any further into the 
circuit, there's something you need to 
know about the difference between 
PORTA and PORTB. In the 800 and 
400 each of the I/O pins in PORTB 
has a little "helper" in the form of a 
+ 5 volt source connected through a 
4.7K resistor. The PORTA pins don't 
have this and when you send a "high" 
through a PORTA pin, it doesn't have 
nearly enough power to make this cir- 
cuit work. 

So I added a "helper" to this cir- 
cuit for XL/XE owners who have only 
PORTA available. In Figure 1, resistor 
R3 is drawn with a dotted line. R3 is 
a 4.7K resistor that supplies + 5 volts 
to the output line, similar to what's 
built into PORTB. You can operate this 
circuit from PORTB on an 800 or 400 
if you omit resistor R3 and make the 
programming changes I'll specify 
later. 

WATER VALVE 

As it comes from the factory, the 
RainMatic Corp. water valve has a 
compartment for four C batteries, and 
an electronic programming module 
with an LCD display for setting up the 
watering schedule. I removed the pro- 
gramming module to connect the 
Atari in its place. I also removed the 
battery compartment and substituted 
a longer-life 6 volt lantern battery. 
This left two sides of the assembly 
open, so I had to make two crude 
plastic covers and caulk them well, to 
keep moisture, dust, and insects out 
of the valve assembly. The wiring sim- 
ply comes out through the caulk. 
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Figure 1, Attaching the relay to the joystick plug. 
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Figure 2, Attaching the relay to the valve and the thermostat. 



The lead from the negative side of 
the battery first hits the thermostat, 
assuring that the valve will stay closed 
until the air temperature in the green- 
house is high enough. 
(see figure 2) 

The normally closed (NC) pin of 
the relay is connected to the black 
wire of the valve coil, which opens 
the valve. The normally open (NO) re- 
lay pin is connected to the green wire 
of the valve coil, which closes the 
valve. 

Normally the valve is open and the 
water flows. To turn the water off, my 
program POKEs a 1 into PORTA and 
+ 5 volts is sent on pin 1. This closes 
the relay and voltage from the lantern 
battery is applied through the ther- 
mostat and the relay to the green lead 
on the valve, which closes. 

Voltage continues to be applied to 
the green lead, but nothing happens. 
There is no battery drain because a 
switch inside the valve opens the cir- 
cuit. When it's time for the water to 
come on again, the program POKEs 
0 into PORTA. The relay releases, 
removing voltage from the green lead 
and applying it to the black lead. The 
valve opens and the water flows 
again. 

A lead runs from the COLD side of 
the thermostat to the green wire of 
the valve. This insures that the valve 
will automatically close if the temper- 
ature drops below the threshold while 
the water is on. 



PARTS LIST 


PC BOARD 


Radio Shack #276-168 


Rl, R2 


IK Ohm Resistors 


R3 


4.7K Ohm Resistor 


TRANSISTOR 


2N2222 


RELAY 


Radio Shack #275-216 


LED from Radio 


Shack 


9-conductor ribbon cable 


9-pin female connector 



THE CLOCK 

The heart of my Atari clock is a 
machine-language program running 
in the vertical-blank interval. It is 
based on OS location RTCLOK (18, 19, 
20), but only reads location 20, which 
counts jiffies (1/60 seconds). 

Real-World Interface uses locations 

19 and 18 to store the count of 
seconds and minutes, respectively, 
obtained by watching the content of 
location 20, resetting it when it 
reaches 60, and incrementing the 
seconds count at the same time. 

I wanted to store the count of hours 
in Page 0 so it could be accessed 
quickly. I chose location 207, which 
seems to be unused by most versions 
of DOS and BASIC. I also used 208 
and 209 for counting jiffies. Location 

20 is actually updated every 
1/59 92334 second— not every 1/60 
of a second. In the short run, this isn't 
enough of an error to cause much 
trouble. But with a continuously run- 
ning clock, the error builds up sur- 
prisingly fast. 

So I built a correction factor into my 



clock. Since the Atari timer gains a 
tiny fraction (0.07666) of a jiffy each 
second, I calculated how many jiffies 
it was gaining in a minute (4.5996). 
Dividing this number into the num- 
ber of seconds in a minute yielded 
13 044612 seconds, which told me 
how often I needed to increment the 
jiffy counter to keep the clock as 
accurate as possible. Since 13. 044612 
seconds equal 782.67672 jiffies, I 
rounded off my number to 783. 
That's what the clock program counts 
to before adjusting the jiffy counter. 

I realize this may seem like nitpick- 
ing to some, but achieving the highest 
possible accuracy allows a continu- 
ously running program like my green- 
house tender to go longer between 
clock resets. 

ABOUT THE PROGRAM 

Type in Listing 1, INTRFACE.BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. 

Some simple line-editing will turn 
INTRFACE.BAS into a universal relay- 
controlling program. Since the water 
goes on when the relay is off, all that's 
required is to replace the word WA- 
TER with RELAY and ON with OFF 
(and vice versa) in the following lines: 
900, 920, 1020-1070, 1112-1160, 1190, 
1200, 1280, 1320. Also swap lines 
500 and 510. 

To RUN the program using PORTB 
on an Atari 400 or 800, just change 
line 5 to: 5 LET A800 = l 
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When RUN, INTRFACE.BAS loads 
my machine language timing routine 
into the second half of Page 6. 

Next, the variables are declared and 
the clock is initialized beginning at 
line 100. The program asks if you 
wish to reset the clock, which is on 
a 24-hour cycle, not 12 hours, and will 
accept either an uppercase or lower- 
case response. 

If you choose to set the clock, the 
time is displayed onscreen until you 
press [START]. If the clock hasn't been 
set, don't answer No to the reset 
prompt, otherwise the clock will run 
at one-fourth speed. Merely stopping 
INTRFACE.BAS will not stop the 
clock. 

After configuring the port for out- 
put, the program calls subroutines at 
lines 880 and 1110 that request all tim- 
ing parameters. These parameters 
specify how the relay will function. 
First the program asks for the earliest 
and latest start times. If you answer 



the first prompt with a [RETURN] 
only, it will assume that round-the- 
clock operation is okay. 

Next, the program asks for the 
length of time you wish the water to 
be on, and the length of time you 
wish it to be off. If you press 
[RETURN] at each of these prompts, 
the program jumps to the manual 
operation routine at line 1240. This 
routine asks if you wish to turn the 
water on or off before exiting the 
program. 

Before operation actually begins, 
the time is displayed at the top of the 
screen. Several options are offered at 
the bottom of the screen. 

At this point you can stop the pro- 
gram with the water on, stop with wa- 
ter off, or if you want to change one 
of the parameters, you may re-start the 
program without resetting the clock. 
These options are also available while 
the program is running. 

Finally, press any key to start the 



timer. 

PROGRAM TAKE-APART 

In lines 440-460, the program 
checks to see if it's time to operate a 
relay. If so, lines 500 and 510 initial- 
ize variables before calling the timing 
and relay subroutines. 

In lines 600-730, the program gets 
the correct time, adds to it the amount 
of time specified for the relay to be 
operated or released, and adjusts any 
minute or second values greater than 
60, or hour values greater than 24. 

Lines 770-820 contain the timing 
loops, one each for second, minute, 
and hour. 

Lines 840-847 hold the subroutine 
that displays the time at the top of the 
screen. a 



John Little has been programming Ataris 
and tinkering with hardware projects 
since 1984. 

Listing on page 28 
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'•SELL-TRADE 



Atari 520STFM 

with DS DD Drive and Color Monitor 



UNBELIEVABLE DEALS EVERYDAY! 



$585 

NEW 



with trade-in of 130XE, 1030 Drive, 1702, 1025/1027 
$CALL for your system 



Computer^ 



BUY-SELL.TRADE 



TRADE-IN FOR ANYTHING WE SELL! 



Used 



520ST FM Computer $399 1040ST Computer $585 

1050 Drive $139 130XE Computer $119 

Parrot Digitizer $28 65XE Computer $85 

Indus GT AT $139 1702 Monitor $139 

Printers from $49 Atari 1027 LQ Printer $79 

Atari 1025 Printer $79 Shanner 7 color prn $109 

Atari 16K Expansion $9 Atari 850 Intfc $69 

Dgtizers/Synths from $29 C1802C Color Mon. $149 

Joysticks from $4 Software/Books from $1 



New 



Atari SF354 Drive 

A low cost drive for your system ST 




with your trade-in 



All references to trade-ins assume equipment to be in good 
working condition. Shipping handling will be added to all 
prices. No additional charge for credit cards or COO. Mail order 
prices shown. 

WE CHECK FOR CREDIT CARD THEFT! 



VISA 



520ST FM CPU 
SC1224 Color Mon. 
256K DRAM 



$499 Atari 1040ST Plus+ $719 
$325 EZ-RAMIIOK $125 
$10 Atari SX21 2 Modem $89 



1802D Monitor $189 XF-551 Drive 
Atari 65XE Computer $109 Atari 130XE 



Avatex 1200eHC 



$179 
$149 



$79 Prac.Per. 2400HC $189 



R-Time8Cart. $49 US Doubler w/DOS $39 

256K upgrades Ok $35 Atari XE Game Sys $159 
Star NX-1 000 1 44cps $189 Epyx 500XJ Joystick $19 



$Cash for your equipment 
Thousands of software & book titles 
Plus, MUCH, MUCH MORE! 

5721 Arapahoe Suite IB 
Boulder, CO 80303 
Technical Support/Questions: 1-303-939-8144 



Atari 130XE 




wftn trade-in of 800X1, 810 Drive, 1030 Mm, 
$CALL for your system 



Atari xf-551 




wfth trade-in of 1050, 800X1 OR $109 with 1050 
$CALL for your system 



1 -800-347-3457 



MASTERCARD 



DISCOVER 



Authorized Sales & Service for 
COMMODORE/AMIGA 
and ATARI ST/XL/XE 

Computers and Accessories. 



AMERICAN EXPRESS 



COD 




Cardiac Arrest! 

1988 Antic Award Winner 
"Outstanding Product" 

IBM, Apple II, Atari XE, Atari ST 

Antic: "Impressive and amazingly complete. " 
ST World: "Remarkably easy to use. " 
Computer News for Physicians: "Excellent value. " 
You interpret the patient's history, on-screen EKG, lab 
data, and vital signs, then give treatment orders in plain 
English. Varying degrees of difficulty, with over 45 patients 
— and none is ever the same twice. Go "beyond ACLS" 
with hypothermia, hypocalcemia, hyperkalemia, and 
more. So much fun, non-medical people use the simulator 
to "play doctor." 

ACLS Teaching Series' $109 

Cardiac Arrest! $69 

ACLS Protocols $29 

EKG Teaching $29 

CardioQuiz $19 

Blood Gases $24 
'The four-disk ACLS teaching Series includes Cardiac 
Arrest!, ACLS Protocols, EKG Teaching, and CardioQuiz 
at 34% savings. 

Mad Scientist 2063 North 820 West 

Software Pleasant Grove, UT 84062 
Visa/MC orders 801-785-3028 




Computer-Assisted Instruction 

QuizPlus 

for Atari ST 

QuizPlus is a C.A;I. -generating system, 
allowing you to mix tutorials, questions, and 
DEGAS-format pictures to create 
mouse-driven education disks. Includes 
editor and run-rime module. 

Quiz-Plus C.A.I. System $29 

We also sponsor a distribution system to help 
you sell QuizPlus education disks you've 
created. This month's featured QuizShare 
education disks: 

The Solar System $10 
The Circulatory System $10 
Military Aircraft $10 

Mad Scientist Software 

2063 North 820 West 
Pleasant Grove, UT 84062 

Visa/MC orders call 801-785-3028 




THE AMAZING NEW 

fOICC MASTrC, Junior 



TURNS YOUR 
COMPUTER 
INTO A TALKING 
AND LISTENING 
SERVANT 
Get speech output and 
voice recognition in ONE pro- 
duct. Voice Master Jr. is easy 
to use with new commands added to BASIC. A music 
bonus lets you write and compose by whistling the 
tunel Unlimited uses for fun, education, practical ap- 
plications. Demo programs included. Price onty 
$39.95 including software and manual. A Patented 
price/ performance breakthroughl 
TO ORDER BY MAIL include $4 shipping & handling 
($6 Canada, SI 2 overseas) per order. Visa, Master- 
Card phone orders accepted. Available for 
C64/128 and Atari 800/800XL/130XE. Specify 
when ordering. 30 day money back guarantee, 
one year warranty. Other enhanced voice I/O 
systems are available for Commodore, Apple, and 
IBM computers. 

Call or write today lor FREE Product Catalog 

COVOX ifYC. (503)342-1271 

675 Conger St.. Eugene. Oregon 97402 




EQUIVALENCE 

continued from page 48 

name table. Be sure your program 
knows how to search through the 
variable tables for the information it 
needs. 

OTHER USES 

The previous examples mostly 
speed disk I/O. But there are many 
other powerful ways to use equiva- 
lenced variables, such as creating and 
manipulating pseudo-records and 
defining pointers. 

Pascal lets you to declare RECORD 
data types. A RECORD is a variable 
which contains other variables. For 
example, a single RECORD variable 
for a banking program might contain 
a person's name (a string), an account 
number (an integer), and account bal- 
ance (a floating-point number). 

You can emulate a RECORD in BA- 
SIC by consecutively equivalencing a 
set of variables into one large string. 

This form may be useful for creat- 
ing a small database or other systems 
where you need to keep data grouped 
together in a particular fashion. 

You can also use equivalenced vari- 
ables to emulate pointers. Just find the 
string's eight-byte block in the variable 
value table and change its offset (bytes 
three and four) to point to the desired 
memory location. In Listing 1, for ex- 
ample, we made the string point to 
the audio control registers. 

Try some high-speed screen I/O. 
Create a string the same size as the 
screen and point it to screen memory. 
Anything you put in the string will ap- 
pear onscreen instantly. 

PROGRAM TAKE-APARTS 

Listing 1 equivalences a string with 
the audio control registers, memory 
locations 53760-53767. SS is an eight 
byte string that is offset so that it 
points to those locations. CHS con- 
tains the frequency, distortion, and 
volume values for each of the eight 
audio control registers. 

The first part of Listing 1 takes the 
frequency, distortion, and volume 



values from CHS and puts them into 
the SOUND command. 

You could speed up this routine by 
storing these values in an array. This 
would avoid the string-to-floating- 
point conversions, but would require 
4,608 bytes of memory instead of 256 
bytes (nine times more space) and 
would still be slower than the second 
part of the program. 

In the second part, the program sets 
SS as a pointer to the audio control 
registers. They are set very quickly by 
copying eight-byte substrings of CHS 
into SI. 

Listing 2 demonstrates the gener- 
alized method for equivalencing vari- 
ables. As written, it can be RUN in 
Atari BASIC or Turbo BASIC XL. 

Listing 2 begins by asking for the 
size of the floating-point array M(). 
After DIMensioning M() and the 
string variables, Listing 2 finds the 
location of each of the variable tables. 

Next, the program jumps to the 
subroutine at line 2000 to find the 
variable number, offset and dimen- 
sions of M() and SS. The actual 
equivalencing of M() and SS occurs 
in lines 380-500. Lines 520-1250 con- 
tain the I/O and initialization bench- 
marks for the data in Figure 1 and 
Figure 2. 

The subroutine at line 1500 con- 
tains a timer and the subroutine at line 
1600 prints the first five elements of 
M( ) to show that the contents of M( ) 
actually do change during the bench- 
mark routines. A 

Doug White of Arlington, Texas uses his 
1200XL as an aid in designing and test- 
ing loudspeakers. This is his first appear- 
ance in Antic. 

Listing on page 32 
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Celebrity Cookbook, Cheat! 



CELEBRITY COOKBOOK 

Liz Taylor's diet lunch, Rock Hud- 
son's hot buttered rum, Boy George's 
diet breakfast, Ronald Reagan's 
corned beef, Sophia Loren's first- 
course pizza. . . Does your recipe fil- 
ing system consist of musty 3 -by- 5 
cards and food-stained newspaper 
clippings stuck into your crumbling 
copy of "The Joy of Cooking"? With 
this first installment of a promised six- 
volume Celebrity Cookbook series, 
it's easy to take charge of your recipes. 

The software contains 50 celebrity 
recipes, plus goodies such as diet 
secrets of the stars, a wine directory, 
bartender's guide and Perle Mesta's 
Party Tips. All recipes can be dis- 
played onscreen or printed out. You 
can resize recipes in terms of the num- 
ber of servings and print a shopping 
list for any recipe. 

Menu selection can be made with 
the keyboard, joystick or ST mouse, 
although the joystick action seems too 
fast. The Cookbook's publisher is 
working on the mouse-driven Graph- 
ics Operating Environment for the 
Atari 8-bit. The joystick doesn't work 
at all in the main menu — a small flaw, 
but potentially confusing. When us- 
ing the keyboard, the [ARROW] and 
[RETURN] keys do most of the work. 

The heart of the program is the filer 
for your own personal recipes — My 
Favorite Recipes. This is really a small 
word processor and database, with 
cut-and-paste and search functions. 
You can ask for chicken recipes, 
recipes using anise, or recipes under 
a heading you define as "I'm tired and 
it's easy." With a little experimenta- 
tion, anyone can start filing right 
away. But don't go too far too soon, 
print the help file first. It explains the 
data entry process, defining your 




fields and the more advanced func- 
tions of the filer program. 

To me, a recipe filer seems to be one 
of those applications for which the 
technology of choice is still pencil, 
paper and rusty 3x5 file box. Our 
computer lives close to the kitchen — 
in the dining room, cohabiting with 
10,112 toys. But typing in all of our 
recipes seems like an awful lot of 
work. And my review copy had a 
printing bug. My personal recipes 
printed out fine, but the celebrity rec- 
ipe printouts repeatedly crashed the 
computer. I mailed the disks back to 
the company around the time it 
moved from Palm Springs to Mary- 
land. At deadline I had received no 
response. 

If you do want your recipes on 
disk, Celebrity Cookbook is for you. 
The program is fun, easy and well- 
conceived and designed. Now if I 
could only figure out how to attach 
my blender to the cartridge slot.— 
DAVID MERRIHUE 

$29.99, 48K disk. U.S.A. Media, 7810 
Malcolm Road, Clinton, MD 20735. (301) 
868-5494. 

CHEAT! 

Cheat! intrigued me immediately. 
I don't know how many times I've 



wished I'd had unlimited lives in a 
video game, or that I could advance 
past that screen that had confounded 
me for countless days and countless 
quarters. Well, although Cheat! won't 
help you very much in the arcades, 
at least home players can end some 
of the torture. 

Cheat! is a game utility which 
makes a working copy of your favor- 
ite game, modified to allow unlimited 
lives. The only drawback of Cheat! is 
that it will only work for the titles it 
recognizes. And while the list is more 
than 100 titles long, there were only 
a couple of titles I had even heard of 
(and only one that I had available)— 
and I have hundreds of commercial 
games. Perhaps the other titles were 
public domain or shareware. 

But this aside, I selected Boulder 
Dash from the list to see how Cheat! 
worked. And it didn't. I followed the 
instructions precisely. Cheat! told me 
it couldn't locate the "Lose Life Rou- 
tine," or something like that. Then it 
babbled about sector locations — 
gibberish to a technical novice like 
me. I can run any program, but I'd be 
hard pressed to peek into any disk 
files. 

In short, if you're thinking of buy- 
ing this one, make sure it works with 
some of your titles, or you'll be stuck 
with a $25 conversation piece. 

While I don't think that any game 
on the market would drive me to buy 
Cheat!, I'm sure that some of you have 
programs you still haven't mastered, 
or a level or two you still haven't 
visited. Cheat! might be your only 
hope. -STEVE PANAK 

$24.95, 48K disk. Alpha Systems, 1012 
Skyland Drive, Macedonia, OH 44506. 
(216) 467-5665. 
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NX-l 000 RAI N BOW 

First affordable COLOR dot-matrix printer. By Matthew Ratcliff 




The Star NX-1000 Rain- 
bow is the first affordable 
and practical graphics- 
capable dot-matrix color 
printer. First there was the Epson JX- 
80 dot-matrix, which cost about five 
times more than the Rainbow. Then 
there were the more affordable 
Okidata thermal-transfer color 
printers, which used very expensive 
ribbons, were extremely slow, did not 
work with many popular printing 
programs and did not do a very good 
job of printing normal all-text pages. 
The NX-1000 Rainbow provides all 
the practicality of a standard dot- 
matrix printer, plus the beauty of 
vivid color — all at a reasonable price. 



Except for color printing, the Rain- 
bow is nearly identical to the standard 
NX-1000 printer reviewed by Gregg 
Pearlman in the October 1988 Antic. 
The Rainbow also has several type- 
styles and fonts, all selectable via mul- 
tiple panel-button presses — including 
draft and near letter-quality Courier, 
two Orators and Sanserif. 

Unfortunately, color selection was 
not added to the panel for the Rain- 
bow Most software does not directly 
support color printing, so this would 
have been a very convenient enhance- 
ment. The Rainbow is completely 
Epson JX-80 compatible, and for 
Atari ST users a DEGAS printer-driver 
called JX80. PRT is already available 



on CompuServe's SIG-Atari. 

Atari 8-bit owners can print color 
graphics on the NX-1000 Rainbow or 
the JX-80 with YEMACYB/4 software 
($29.95) by Electronical Software, P.O. 
Box 8035, Rochester, MI 48063. This 
color screen dump utility is capable 
of printing your favorite Micro Illus- 
trator formatted pictures in full color. 
Naturally, the 8-bit needs a printer in- 
terface such as ICD's P:R: Connection 
to work with the NX-1000. 

The Rainbow has a rear tractor feed 
mechanism, giving it the ability to 
perform a reverse form feed. I'm will- 
ing to put up with the nuisance of a 
rear tractor feed (it's difficult to get to 
and load paper properly) for this ad- 
ded feature, which greatly simplifies 
color separation printing. 

Using Publishing Partner Profes- 
sional software, the Atari ST can print 
images in color separation style, each 
color requiring a separate pass 
through the printer, followed by a re- 
verse form feed. The entire page is 
printed first in magenta, then cyan, 
yellow and black. The original YE- 
MACYB program (Reviewed in the 
July 1987 Antic, also available for 
$29. 95 from Electronical Software.) 
supports multi-color printing like this 
on single-color printers, prompting 
you to change the color of the ribbon 
between each pass. With the NX-1000 
Rainbow and YEMACYB/4, you get 
faster and more convenient one-pass 
color printing. 

I was able to find some classic 
DEGAS pictures and print them on 
the NX-1000 Rainbow. Since I have 
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The Rainbow provides the prac- 
ticality of a dot-matrix printer, 
plus the beauty of vivid color. 



been playing with Lightspeed C on 
the 8-bit Atari growing Mandelbrot set 
fractals (Antic, November 1988), I had 
a lot of fun dumping color fractals to 
the Rainbow as well. The Rainbow 
does a very good job, much better 
than the Okidata thermal-transfer 
printers. And pictures are much less 
expensive to generate, thanks to the 
Rainbow's multi-pass fabric ribbon. 

The ribbon has four color bands: 
black, cyan (blue), magenta and yel- 
low. It seemed to wear out rather 
quickly. Many of the newer printers 
using cartridge ribbons have small re- 
inking rollers built in, but the multi- 
ple color bands of the Rainbow's rib- 
bons make such re-inking impossible. 
NX-1000 color ribbons cost about $11 



each and the black-only ribbons run 
approximately $6. 

Colored text is quite simple to ac- 
cess from any word processor. Color 
and font commands are sent to the 
printer by placing the letter C for 
color, or F for font selection, within 
a pair of double parentheses followed 
by a single ASCII digit indicating the 
font or color selected. ((C))l would 
tell the Rainbow to print RED text. 
((F))0 would select the near letter 
quality Courier font. 

The only drawback with these five- 
character command codes is that your 
word processor treats those charac- 
ters as text, but the printer gobbles 
them up as a command. This may 
cause some margin problems in your 



text, but you can work around this by 
keeping color and font commands on 
lines separate from the main body of 
the text. Colors such as green are 
created by the printer in two passes, 
first in yellow and then reprinting the 
line in cyan. When NLQ printing is 
enabled, all text is printed twice to get 
the higher resolution. If you have a 
rather tired ribbon, you may wish to 
enable double-strike printing for a 
darker output. Printing green, NLQ, 
double-strike text on the NX-1000 
Rainbow will require six passes of the 
printhead per line of text! The out- 
put is beautiful, but slow. 

I have found that you can select a 
single color, say green or red, from a 
simple BASIC program and then run 
the Hi Tech Expressions 8-bit pro- 
grams Print Power or Sesame Street 
Print Kit. All your cards and posters 
will print in that chosen color. 

Other features of the NX-1000 Rain- 
bow include some niceties like a 
power switch at the front, where it 
belongs. The printer connector and 
power cord are on opposite sides of 
the printer, not hanging off the rear 
where they can obstruct the paper 
path. Print and graphics quality of 
both black and color are very ac- 
ceptable. 

The rear tractor feed also provides 
for a feature called Paper Park. The 
Rainbow will reverse feed the paper, 
extracting it completely from the 
platen. Changing from tractor to fric- 
tion feed, you can insert single sheet 
paper from above the printer. When 
done, simply return to tractor feed 
and press the panel buttons for a form 
feed. The Rainbow will automatically 
reload your paper. Unfortunately, the 
printer does not find the precise top 
of form upon reload, requiring man- 
ual adjustment. 

The NX-1000 Rainbow has added 
a whole new dimension to my per- 
sonal computing. A 

$379. Star Micronics Inc., 200 Park 
Avenue, New York, NY 10166. (212) 
986-6770. 
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24 HOURS 




Visa - MasterCard 



SERIOUS BUSINESS 

Can you really run a business on your Atari? You 
bet! TurboBase from MicroMiser is serious software 
for serious businesses. It computerizes your whole 
office with General Ledger, Accounts Receivable, 
Accounts Payable, Payroll, Inventory, Point of 
Sales, etc. It's also a REAL database with REAL 
power to organize your information. After giving up 
on other databases, many happy customers use 
TurboBase for its database power alone. 

TurboBase is equal to anything running on IBM 
PCs, but costs thousands less. Hundreds of success- 
ful business are running on TurboBase. This is 
a comprehensive package; it's flexible and sophisti- 
cated. Expect to spend about six weeks learning to 
get the most out of it. Of course MicroMiser pro- 
vides complete professional support. 

Now TurboBase 80 demolishes the final advantage 
of more expensive machines. It works with the Atari 
XEP 80 adaptor to give your work a full 80 col- 
umn display. See twice as much information at a 
glance. Lay out your reports and forms exactly as 
they'll appear in print. If you don't already have the 
Atari XEP 80 adaptor, we'll provide that for you, 
too. 

TurboBase (TH0015) $159.95 

TurboBase 80 (requires XEP 80) (TH0016) $179.95 
Atari XEP 80, 80 column adaptor (TH0017). $79.95 



EVERYONE'S FAVORITE 

SUPERDOS 5.0 supports all drives and densities 
with auto-sensing so you'll never again worry about 
mixed formats. Plus, you get support for RAMdisks 
(up to 320K), and you can restore deleted files and 
patch damaged ones and much more. Only SUPER- 
DOS 5.0 fully supports your new XF551 disk 
drive, yet is compatible with DOS 2.5. SUPERDOS 
is the easiest, friendliest DOS there is. See why 
everyone loves SUPERDOS. Imported from Austra- 
lia by Technical Support. 

SUPERDOS 5.0 (TH0023) $20.00 



SUPPORT ATARI PR( 

ATARI 400/800/600/ 1200 



STICKYBEAR 
SAYS HI! 

He'll give your kids a headstart. 
Pre-schoolers love Stickybear, 
and so do their parents. He's the 
most popular name in young people's 
software for a reason, he's the best! 
Now these fun, educational programs 
can help your children to grow and 
develop. Don't neglect the benefits 
your computer offers your little 
ones. Hours of excitment while they're 
learning valuable primary skills. 
Rated for ages 3-6, but older kids love 
Stickybear, too. Order now and save 1/ 
3! From Optimum Resources/ 
Weekly Reader. 

Fun I eductional games for kids: x 

Stickybear Shapes (TH0018) just $19.95 

Stickybear Numbers (TH0019) just $19.95 

Stickybear Opposites (TH0020) just $19.95 

Fun games for kids to play with their parents. 
Stickybear Basketbounce (TH0021) just $19.95 
Stickybear Bop (TH0022) just $19.95 



THE FINEST TEXT 
ADVENTURES 





Infocom always created the greatest 
text advetures. Now the Antic ARCADE 
brings you four of their best, at a fraction of 
the original prices. Find out for yourself why these 
adventures have become the most popular games of 
all time. From Mediagenic/Infocom. 

Mindshadow (TH0024) $3**5.now $17.95 

Seastalker (TH0025) $JSMS now $17.95 

Moonmist (TH0026) $3**5>now $17.95 

Wishbringer (TH0027) $&«Znow $17.95 



IC ARCADE 



JRA MERS - BUY SOFTWARE! 

7600XL/800XL/65XE/130XE/XE GS 



3D DYNAMITE 



25% off 



J 



Now you can have the kind of 3D ability which is 
revolutionizing graphics on larger computers. With 
Super 3D Plotter II from Elfin Magic, your 8-bit Atari 
delivers Cyber Power. Plot complex solid objects. Spin 
them, rotate them, view them from any angle or 
distance. Work with a joystick or enter data num- 
erically, or both. Super 3D Plotter II is the most 
advanced solid object modeling program available on 
any 8-bit computer. And now the price's reduced 25%. 
Super 3D Plotter II (TH0028) $3*05 now $29.95 



COMPUTERIZE YOUR HOME 



The X-10 is the most popular home control system. And 
no wonder, you don't need expensive rewiring. X-10 
offers interfaces for all popular computers EXCEPT 
YOUR ATARI. Now Terrific Corp. comes to the rescue 
with the PowerManager. It hooks your Atari to any X-10 
interface designed for any other computer. 

Now your Atari controls the lights, appliances, thermo- 
stats, fans, alarms, and anything else electrical. Regu- 
late outside lighting for security, safety, and beauty; 
never come home to a dark house again. Control when 
the kids watch TV. Manage your furnace and air condi- 
tioner, save money on energy bills. Software and cable. 
(Requires CP290 Powerhouse Interface from X-10). 
PowerManager (TH0029) $2*!9&.now $24.95 



PRINT SHOP 

FONTS AND BORDERS 



PS FONTS 



Everybody's got lots of Print Shop pictures, but where do 
you find fonts and borders? Right here! We have the 
whole collection from No Frills Software, all four disks! 

(Requires Print Shop upgraded with the Print Shop Companion and 
XL/XE with at least 64k). 

PS Fonts and Borders #1 (TH0030) $14.95 

PS Fonts and Borders #2 (TH0031) $14.95 

PS Fonts and Borders #3 (TH0032) $14.95 

PS Fonts and Borders #4 (TH0033) $14.95 

Print Shop and Print Shop Companion® Broderbund Software 



HALF PRICE MIDI! 



Yes, prices for these fabulous Hybrid Arts hard- 
ware/software systems are slashed in half. All you 
need to control MIDI from your Atari. MIDI Track 
controllers are the most sophisticated 16 track 
sequencer/editors you can get. Compose, edit, and 
play your creations. Use MIDI Track in your music 
room, or use it in your concerts. It's equal to any- 
thing around - at a fraction of the cost. Plus you can 
instantly find and load the exact sounds you want 
with the famous Hybrid Arts Patch Librarians. So, 
whether you're a garage band on the way up, a 
successful professional, or even if your family just 
gathers around the keyboards in the evening, MIDI 
is your future in music. And MIDI is Hybrid Arts. 

MIDI Track II (TH0034) J&S&now $174 

MIDI Track III (128K) (TH0035).. &at£now $187 

Plus these great Patch Librarians: 
CZ Librarian (for Casio CZ keyboards) 

(TH0036) O&Gnow $39.95 

DX Libraian (for Yamaha DX Keyboards) 

(TH0037) OWSnow $59.95 

Gen Patch (generic, for all equipment) 

(TH0038) now $74.50 



d PERSONAL POWER 

You paid for Player-Missle Graphics, Display List 
Interrupts, superb sound, etc. - why can't you use 
them? Now you can! Ad van BASIC is the most 
powerful language ever created for your Atari. 
But it's also the easiest to use. Write high speed, 
professional-quality, software. It's easy and fun. 
Since it's BASIC, it's very easy to use. Since it's 
compiled, it's very, very fast. Order now, save 25% 

Advan BASIC (TH0039) $39.95 now $29.95 

Modules to increase your productivity: 
Utilities Pack (includes runtime) 

(TH0040) $2042 now $24.95 

Screen Design (for the professional look) 

(TH0041) $2*«& now $24.95 

Optimizing Compiler (when speed's everything) 
(TH0042) $X now $19.95 



ANTIC 



THE ANTIC ARCADE N! 

YOUR PURCHASES GUARANTEE 



PRODUCTIVITY TOOLS 
TO KEEP YOU AHEAD 



A, EXCITMENT, CHALLENGE, 
AND WONDER 



CREATIVE PROCESS - This amazing outline 
processor organizes your ideas for writing - or for 

anything else. (AP0151) $19.95 

SPELL MAGIC - Catch embarrassing spelling 
errors in your reports and letters. Works with any 

word processor. (AP0144) $19.95 

PRINTER DRIVER CONSTRUCTION SET - 
Make your AtariWriter cartridge compatible with 

any printer. (AP0131) $19.95 

BACKTALK 1.2 - The programmable macros 
automate your telecommunications, save you time 

and money. (AP0154) $19.95 

CHAMELEON TERMINAL EMULATOR - Call a 
mainframe with your Atari: TTY, ADM-3A, VT-52, 

IBM 3031. (AP0113) $19.95 

DISK SCANNER - Recover damaged or deleted 
files on single or double density drives. 

(AP0145) $15.95 

SHERLOCK 1050- Recover damaged or deleted 
files on single or enhanced (dual) density drives. 
(AP0155) $19.95 



ORDER BY MAIL! 



Send check or money order to: 

Antic Software#MA89, 

544 Second Street, 

San Francisco, CA 94107. 
or phone toll free 

$20.00 minimum order, please include 
$3.00 shipping and handling per order. 
California residents add 6.5% sales tax. 



XTAL (CRYSTAL) - Command a star cruiser! 
Detailed effects are everywhere. More than a game: 
an epic. (AP0158) $15.95 

BLUE TEAM BRIDGE - Tournament level. Play at any 
time, improves your bidding-or learn to play. Great 
graphics (AP0178) $15.95 



ASTROLOGY - Create beautiful charts for your 
family and friends. Imaginative gifts, always 

popular. (AP0167) $15.95 

ATARIORACLE - The computer OUJI board. 
Predicts the future, answers all questions, picks 

LOTTO numbers. (AP0138) $15.95 

CRIBBAGE and SEVEN CARD STUD - Two 
great card games. The poker players don't cheat, 

but they bluff. (AP0173) $15.95 

COLOSSUS CHESS 3.0 - The best Atari chess 
game for the serious player, beginner or Grand- 
Master. (AP0161) $15.95 

PUZZLER - Infinite jigsaw puzzles, use your own 
pictures. Set difficulty level for any age group. 

(APO150) $12.95 

BUMPOMOVS DOGS - A two-player, non-violent, 
action game you can enjoy with your kids. Great 

family fun. (AP0112) $12.95 

BURGERS - Computer fun for younger kids. If you 

eat too many burgers, POP! (APO109) $12.95 

TAXICAB HILL - Delightfully chaotic as other 
cabbies steal your fares. Variety of neighborhoods, 

great music. (AP0137) $15.95 

DIGGERBONK - Scrolling, multi-screen arcade 
excitement for kids of all ages, complete with a 

Panic Button. (APO107) $12.95 

DRAGON'S QUEST - A wonderful illustrated 
adventure game for your entire family. Fast and 

fantastical. (AP0139) $15.95 

KING TUT'S TOMB and CONSTRUCTION SET 
- 48 dangerous, multi-screen tombs, or construct 

your own. (AP0149) $15.95 

LORD OF THE ORB - Intense arcade action as 
you search the huge scrolling castle for the stolen 

Orb. (APO103) $15.95 

CHOP SUEY - Joystick-busting, action-packed, 
martial arts excitment. One of our all-time best 

sellers. (AP0162) $15.95 

MARS MISSION II - Streak through the skies and 
the caverns of Mars. Furious action is everywhere. 
(APO120) $15.95 



OFTWARE 



24 HOURS 



EDS YOU - HELP US GROW 

JTURE SOFTWARE FOR YOUR ATARI 




Visa MasterCard 



A, ART + MUSIC + JOY = 
COMPUTER CREATIVITY 



COLOURSPACE - The spectacular visual effects 
generator. Control your own mind-bending light 

shows. (AP0166) $15.95 

RAMBRANDT - The best paint software, bar none. 

Joystick or tablet. Best seller. (AP0157) $19.95 

SOLID OBJECT MODULE - Create 3-D objects 
automatically, view from any angle. (Requires 

RAMbrandt). (AP0182) $15.95 

PICTURE PLUS and LISTER PLUS - The 
complete graphics printing set. For almost all 

pictures and printers (AP0179) $19.95 

SCREENPLOT - Print Atari pictures on most 
plotters, including the Atari 1020. (AP0135) .. $15.95 
ENHANCED POKEY PLAYER - Compose music, 
change it - experiment. Save the best. Add songs to 

your programs. (AP0147) $15.95 

ENVISION - Fills all your character graphics needs: 
animation, fonts, multi-screen maps, much more. 

(AP0185) $19.95 

GRAPHICS SHOP - Convert your own pictures to 
use with Print Shop signs, banners, cards, etc. 
(AP0156) $19.95 

POWER TOOLS 



BASIC VIEW - BASIC program analyzer and 
debugger. Write better programs, faster. For beginner 

or expert. (AP0192) $19.95 

FLOATING POINT PACKAGE and EXTENDED 
DDT - Easy math for MAC/65 and a great assembly 

debugger. (AP0189) $19.95 

DEEP BLUE C and MATHLIB - Use C, the language 
of the future, now! Includes advanced math library. 

(AP0188) $19.95 

INTERLISP/65 - Learn Artificial Intelligence 
programming with LISP, available now for your Atari. 
(AP0191) $19.95 



A, PERSONAL GROWTH FOR 
YOU AND YOUR FAMILY 



SPEEDREAD+ - Double or triple your reading 
speed. Read with less effort and better compre- 
hension. Proven techniques. (AP0164) $19.95 

MEMOREASE+ - Memorize anything quickly and 
easily. Learn speeches, songs, drama roles, etc. 

Improve your memory. (AP0163) $19.95 

EARTH VIEWS - An electronic globe/atlas and an 
exciting geography game. Useful, educational, fun. 

(AP0141) $19.95 

MAPWARE - Generate varied maps in 4 projections 

for school, business, HAM, etc. (AP0134) $19.95 

SPACE BASE - Star atlas identifies objects, refer- 
ence base gives you detailed information. For all 

ages. (AP0142) $19.95 

ORBIT: A TRIP TO THE MOON - Pilot your craft 
from Earth orbit to Lunar landing. Learn space 

navigation. (AP0168) $15.95 

SARATOGA - American Revolution strategy game. 
Detailed, realistic, fun. Full-color playfield map. 
(APO104) $15.95 




PUBLIC DOMAIN 
WINNERS! 



PHOTO GRAPHICS - Great digitized pictures (PD0017) 
ANTIC FORTH - Compact, fast programming language (PD0020) 
THE FIX XL - Run older programs on XL/XE computers (PD0026) 
CROCKFORD'S WHIMSY - Magical disk for all ages (PD0033) 
CUES EDPACK #1 - Educational programs (PD0044) 
CUES EDPACK #2 - More Educational programs (PD0045) 
ASTRONOMY & METEROLOGY Great for the hobbiest (PD0063) 
130XE HI-RES DESIGNER - GR.8 draw pgm for 130XE (PD0070) 
HEAVY METAL ART - Spectacular pictures, 100s of colors (PD0060) 
RAMBRANDT COLLECTION - The best RAMbrandt art (PD0073) 
STEVE DONG'S GALLERY - Incl. Challenger memorial (PD0074) 
VT100 TERMINAL EMULATOR - Access mainframes (PD0037) 
TEK 4010 TERM EMULATOR - For graphic mainframes (PD0083) 

M A 9 A 



Tech Tips 



BOOLEAN STICK 

By Brian Murphy 

It's a fairly easy task to program your joystick for 
drawing on the screen while avoiding Error 141 
(cursor out of range). A simple program to handle 
such an exercise might look like this: 

10 GRAPHICS 7+16 

20 COLOR 1 

100 S = STICK(0) 

110 IF S = 7 THEN X = X + 1 

120 IF S = 1 1 THEN X = X-l 

130 IF S = 1 3 THEN Y = Y+ 1 

140 IF S = 14 THEN Y = Y-l 

150 IF S = 5 THEN X = X+1:Y = Y+1 

160 IF S=6 THEN X = X+ 1:Y = Y-l 

170 IF S = 9 THEN X = X-1:Y = Y + 1 

180 IF S = 10 THEN X = X-1:Y = Y-l 

190 IF X>159 THEN X= 159 

200 IF X<0 THEN X = 0 

2 10 IF Y>95 THEN Y = 95 

220 IF Y<0 THEN Y = 0 

230 PLOT X,Y 

240 GOTO 100 

But there is a much better way to code this func- 
tion using Boolean Logic You see, Atari BASIC 
assigns a value of one to any equation or inequal- 
ity that is true and zero to any that is false. It is im- 
portant to realize that you don't need the conven- 
tion of an IF. . .THEN statement in order to have an 
expression such as T= 5 evaluated as true (one) or 
false (zero). For example: 

10 T = 5 
20 ? T = 5 

In this example the value five is assigned to T— so 
the expression T= 5 in line 20 is evaluated to be one. 
This mini-program will print a one. 

Armed with this background information we're 
ready to rewrite the joystick function. Just replace 
lines 110 through 220 in the above program with 
the two following lines: 

110 X = X + ((S = 5) + (S = 6) + (S = 7)) * (x< 1 59)- 
((S = 9) + (S= 10) + (S= 11))*(X>0) 

120 Y = Y + ((S = 5) + (S = 9) + (S= 13))*(Y<95)- 
((S = 6) + (S= 10) + (S= 14))*(Y>0) 

The parentheses ( ) in the procedure are included 
to ensure that everything is evaluated in the proper 



order. Very often when using Boolean Logic you will 
need such parentheses. Also note that I used addi- 
tion ( + ) to represent Logical OR and multiplication 
( * ) for Logical AND. This is possible only if there 
is mutual exclusion — only one of the possible con- 
ditions can occur at any instant of time. Since a 
joystick can only be pointed in one direction at a 
time, we are assured of mutual exclusion. 

Obviously this routine makes the program much 
shorter, requiring less memory. This new coding 
replaces twelve lines with just two. In many cases 
multiple IF. . .THEN statements that require sepa- 
rate lines can be summed up in one line. 

A joystick routine is only one of many possible 
uses for Boolean Logic expressions. By using 
Boolean Logic throughout your routines you can 
save a great deal of RAM for that extra feature you 
just couldn't fit in. 

AUTORUN SETUP 

By Robert Wallace 

Antic published a September 1988 Tech Tip called 
AUTOGO.BAS which creates an autorun file that will 
LOAD and RUN BASIC programs. But this great util- 
ity already exists and most Atari users already have it with- 
out knowing. On the DOS 2.5 master disk there is a 
SETUP.COM file which will create AUTORUN.SYS files for 
BASIC. 

The menus are easy to follow. Note that SETURCOM 
will work on the disk in drive 1 unless you use option 
1 in the menu below: 

Choose an option: 

1 . Change current drive number 

2. Change system configuration 

3. Set up AUTORUN for Boot 

The DOS 2.5 Master disk came with new Atari drives 
from the 1050 on. If you don't have a copy, check with 
your local dealer or users group about the best way to 
get a copy. 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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ANTIC, THE ATARI RESOURCE 



Since 1981 



Lyco Computer 

Marketing & Consultants 



Air orders processed within 24 hours. 



Great Value 



Panasonic 



Office Automation / f := \£u 



The easier 
the better! 



1091i Model II 

Speed and flexibility for your office 
or home. Panasonic combines 192 
cps draft with 38 cps NLQ for a 
wide variety of printing needs. 
Quality support through a 2-year 
warranty from Panasonic. 



$179 



95 




If you are seeking world renowned 
printer performance for your home, 
look no farther than the 120D. Your — 
data processing needs are handled 
quickly at a print speed of 120 cps 
(draft) or 25 cps (NLQ). The 120D 
features 9 pin dot matrix print 
quality, standard parallel Centronics 
interface and a 4K text buffer. 



CITIZEN 

120-D 



$144 



95 




Great Performance 
Great Price 



.IL 



NX-1000 
RAINBOW 



micronics 



The Star NX-1000 Rainbow adds 
a whole new dimension to your 
work through multi-color printing. 
Star has designed 20 printing 
options into this printer. Add to this 
paper parking, Epson-IBM 
emulation, high resolution NLQ/ 
graphics for a printer with extra 
talent over the competition. 




$225 E 



• Hayes At Command 
Option Set 

• Auto/Manual 
Originate Answer 

• Auto Dial With Pulse 
or Tone Select 

• RS-232C Interface 

• 2-Year Warranty 



$65 95 * 



Avatex: 

1200E 




PRICE GUARANTEE 

Since 1981, we have led the industry by continuing to offer the lowest national prices while 
providing quality service. Many companies have come and gone trying to imitate our quality and 
service. If by some oversight we do not have the lowest prices advertised on the products you 
desire, then we would appreciate the opportunity to rectify this oversight. 




PRINTER PAPER 



1000 sheet laser $16.95 

1000 mailing labels $8.95 

200 sheet OKI 20 $8.95 

Transparent Labels $4.95 

Banner Paper 45' Roll . $1 0.95 



TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: Monday through Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 

For Customer Service, call 1-717-494-1670, 
9AM to 5PM, Mon. - Fri. 
Or write: Lyco Computer, Inc. 
P.O. Box 5088, Jersey Shore, PA 17740 



Don't Miss Our Other Value 
Packed Pages In This Issue! 

Please Note I •full manufacturers' warranties •no sales tax outside 
PA • prices show 4% cash discount; add 4% for credit cards • APO, FPO, 
international: add $5 plus 3% for priority • 4-week clearance on personal checks 
• we check for credit card theft • sorry, compatibility not guaranteed • return 
authorization required • due to new product guarantee, return restrictions apply • 
price/availability subject to change • prepaid orders under $50 in Continental US, 
add $3.00 



1-800-235-8760 
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MENACE is a pure arcade game — a fast action packed journey 
through six very different worlds where lightning fast reflexes and 
furious fire button action are your only hope of survival. 

Your mission orders are simple, you must destroy the planet 
Draconia. In theory possible, in practice ... 

The planet Draconia, an unnatural planet, has been formed over 
many centuries by six of the most feared rulers that have ever 
existed. These rulers, exiled from their home galaxy, have ravaged 
and plundered space, using the worlds they have destroyed and the 
life forms they have created to build this planet of fear and death. 

Now an end must be put to their reign of terror. A large scale attack 
will prove too costly to our space fleets. Draconia has many orbiting 
defence systems, the sacrifice may be in thousands of lives. A single 
fighter craft, approaching undetected, may have a chance to avenge 
those who have perished, by destroying Draconia. You have that 
chance . . . 



AMIGA/ ATARI ST —$29.95 



ADDICTIVE ARCADE ACTION 

PSYCLAPSE - A NEW LABEL FROM PSYGNOSIS 



-ill 



COMPUTER 
SOFTWARE 
SERVICE 



21 50 Executive Drive 
Addison Illinois 60101 
Toll Free: 1-800-422-4912 
In Illinois: 1-800-331 -SOFT 




